Дан двухмерный массив 3x4 случайных целых чисел. преобразовать массив следующим образом: элементы > 10 заменить на разницу номера строки и столбца, элементы ∈ [-5; 5] заменить на n строки в квадрате. полученный массив вывести!

218

457

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

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

Sladkayaaaaaa

Информатика

4,8(33 оценок)

program p1; usescrt; vara : array[1..3] of array [1..4] of longint; i,j : integer; begin

clrscr;

randomize;

writeln('massiv : ');

for i : = 1 to 3 dobegin

writeln('');

for j : = 1 to 4 do begin a[i][j] : = random(15)+random(5)-random(5);

write(a[i][j]: 2,' '); end;

end;

for i : = 1 to 3 dofor j : = 1 to 4 dobegin

if a[i][j] > 10 then a[i][j] : = i - j;

if (a[i][j] > = -5) and (a[i][j] < = 5) then a[i][j] : = sqr(i);

end;

writeln(''); writeln('');

writeln('itogoviy massiv : ');

for i : = 1 to 3 dobegin

writeln('');

for j : = 1 to 4 do begin

write(a[i][j]: 2,' '); end;

end;

readln; readln;

end.

daskatyhg

Информатика

4,4(73 оценок)

var a : array [1..3, 1..4] of integer; i, j : integer; begin for i : = 1 to 3 do for j : = 1 to 4 do a[i, j] : = trunc (random (30)) - 10; for i : = 1 to 3 do for j : = 1 to 4 do if a[i, j] > 10 then a[i, j] : = i - j; for i : = 1 to 3 do for j : = 1 to 4 do if (a[i, j] < = 5) and (a[i, j] > = -5) then a[i, j] : = sqr (i); for i : = 1 to 3 dobegin for j : = 1 to 4 do write (a[i, j]: 4, ' '); writeln; end; readln; e