2
составьте блок-схему алгоритма нахождения квадратов и кубов чисел
от а до b.
например, а=4 b= 6
4 16 64
5 25 125
6 36 216
нужна блок

274

440

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

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

nenezkivazak

Информатика

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

Const n=3; m=4; var a: array[1..n,1..m] of integer; b: array[1..n*m] of integer; i,j,k: integer; sr: real; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(100); write(a[i,j]: 4); end; writeln; end; sr: =0; for i: =1 to n do for j: =1 to m do sr: =sr+a[i,j]; sr: =sr/(n*m); writeln('sr = ',sr); k: =0; for i: =1 to n do for j: =1 to m do if a[i,j]< sr then begin k: =k+1; b[k]: =a[i,j]; end; writeln('полученный массив: '); for i: =1 to k do write(b[i]: 4); writeln; end. пример: исходный массив: 72 51 6 83 51 68 61 25 22 57 76 79 sr = 54.25 полученный массив: 51 6 51 25 22