Дана матрица размера m×n. Заменить отрицательные элементы этой матрицы на 0, а п...

July 2022 1 9 Report

Дана матрица размера m×n. Заменить отрицательные элементы этой матрицы на 0, а положительные на 1 и вывести полученную матрицу по строкам.
Pascal ABC

Answers & Comments

Galbine Var
a:array[1..m,1..n] of integer;
i,j:integer;
write('Размерность матрицы m и n: ');
readln(m,n);
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]); {Заполняем матрицу}
for i:=1 to m do
for j:=1 to n do
if a[i,j]<0 then a[i,j]:=0 else a[i,j]:=1;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write(a[i,j]:4);
end;
end.

2 votes Thanks 2

Answers & Comments

yxcosxsinxnapisat programmu 2 sposobami cikl s parametrom i s preduslov

dana matrica razmera mn najti ee maksimalnyj element pascal abc

sostavit funkciyu nahozhdeniya obema shara znaya ego radius s pomoshyu dannoj funk

sostavit programmu kotoraya vyvodit svedeniya ob avtomobilyah vozrast kotoryh bo

zadana sleduyushaya shkala effektivnosti vnedreniya tehnologij 0 10 nevysokaya

poschitat v stroke kolichestvo slov zakanchivayushihsya simvolami aya

sostavit programmu na yazyke programmirovaniya paskal dlya perevoda koda v sootve

pered kazhdoj cifroj v stroke vstavit simvol nsi

obyasnite postanovku znakov prepinaniyatak govorila margarita idya s masterom po

opredelite eds samoindukcii vozbuzhdaemuyu v obmotke elektromagnita s induktivnos

рекомендуемые вопросы

Helpful Links

Helpful Social