Дан массив 5 на 5, заполненный и положительными, и отрицательными числами. если элементы главной диагонали отрицательны, замените их на 0

133

356

Посмотреть ответы 2

Ответы на вопрос:

елена1245678

Информатика

4,7(19 оценок)

Var a: array[1..5,1..5] of integer; i,j: integer; begin writeln('исходный массив: '); for i: = 1 to 5 do begin for j: = 1 to 5 do begin a[i,j]: =random(21)-10; write(a[i,j]: 3,' ') end; writeln end; writeln; writeln('обработанный массив: '); for i: = 1 to 5 do begin for j: = 1 to 5 do begin if i=j then if a[i,j] < 0 then a[i,j]: =0; write(a[i,j]: 3,' ') end; writeln; end end.