В двумерном массиве обнулить строку, содержащую отрицательные элементы

Question

Информатика

Нинель

16 октября, 02:02

В двумерном массиве обнулить строку, содержащую отрицательные элементы

+3

Ответы (1)

Знаете ответ на вопрос?

Лебния · Answer 1

Var a:array[1 ... 10,1 ... 10] of real; i, j, l:integer; beginfor i:=1 to 10 do begin writeln; for j:=1 to 10 do begin a[i, j]:=random (10) - 1; write (a[i, j],' ') ; end; end; for i:=1 to 10 do begin for j:=1 to 10 do if a[i, j]<0 then begin for l:=1 to 10 do a[i, l]:=0; end; end; writeln; for i:=1 to 10 do begin writeln; for j:=1 to 10 do begin write (a[i, j],' ') ; end; end; end.