Спасайте по паскалю в двухмерном массиве заменить элементы меньшие 3 их кубами.массив заполнить случайными числами в интервале от -3 до 10 вывести на экран исходный и полученный массив в виде таблицы : !

177

419

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

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

AVRORA444

Информатика

4,5(53 оценок)

Const n=5; m=6; var a: array[1..n,1..m]of integer; i,j: integer; begin for i: =1 to n do begin writeln; for j: =1 to m do begin a[i,j]: =random(14)-3; write(a[i,j]: 4); end; end; writeln('новый массив: '); for i: =1 to n do begin writeln; for j: =1 to m do begin if (a[i,j]< 3)and(a[i,j]< > 0) then if a[i,j]< 0 then a[i,j]: =-round(exp(ln(-a[i,j])*3)) else a[i,j]: =round(exp(ln(a[i,j])*3)); write(a[i,j]: 4); end; end; end.

fffff131

Информатика

4,6(2 оценок)

Pascalabc.net const n=5; m=6; var a: array[1..n,1..m]of integer; i,j: integer; begin writeln('исходный массив: '); for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(-3,10); write(a[i,j]: 5); end; writeln; end; writeln('измененный массив: '); for i: =1 to n do begin for j: =1 to m do begin if a[i,j]< 3 then a[i,j]: =trunc(power(a[i,j],3)); write(a[i,j]: 5); end; writeln; end; end.