7 вариант в Паскале пожалуйста

7 вариант в Паскале пожалуйста
Гость
Ответ(ы) на вопрос:
Гость
Program aaa; var A: array[1..100,1..100] of integer;      B,C: array[1..100] of integer;     D: array[1..100] of real;     m,n,s,p: integer; sa,x: real; i,j: byte; begin   randomize;   write ('Введите M и N:   ');  readln (m,n);  writeln;  writeln ('Исходный массив:');  s:=0; p:=1; sa:=MaxReal;  for i:=1 to m do begin     for j:=1 to n do begin         A[i,j]:=random(0,11);         write (A[i,j]:5);         s:=s+A[i,j];         p:=p*A[i,j];          if j>1            then begin             x:=(A[i,j]+A[i,j-1])/2;             if sa>x then sa:=x;           end;     end;     B[i]:=s;     C[i]:=p;     D[i]:=sa;     s:=0; p:=1; sa:=MaxReal;     writeln   end;   writeln;   writeln ('Массив B - суммы строк:');     for i:=1 to m do         write (B[i]:7);   writeln;   writeln;   writeln ('Массив C - произведения строк:');     for i:=1 to m do         write (C[i]:7);   writeln;   writeln;   writeln ('Массив D - наименьшие средние арифметические строк:');     for i:=1 to m do         write (D[i]:7); end.     -------------------- Введите M и N:   5 4 Исходный массив:     2    6   10   11    10    6    4    7     8    6    3    7     2    9    8    4     6    7    9    5 Массив B - суммы строк:      29     27     24     23     27 Массив C - произведения строк:    1320   1680   1008    576   1890 Массив D - наименьшие средние арифметические строк:       4      5    4.5    5.5    6.5
Не нашли ответ?
Ответить на вопрос
Похожие вопросы