var a: array [1..5, 1..10] of integer; i, j: integer; p: real;
begin for i : = 1 to 5 do begin for j : = 1 to 10 do begin a[i, j] : = random(50) + 1; write(a[i, j]: 3); end; writeln; end; writeln('произведения элементов строк'); for i : = 1 to 5 do begin p : = 1; for j : = 1 to 10 do p : = p * a[i, j]; writeln(p: 25: 0); end; end.
var a: array[1..2,1..30] of integer; i,j: integer; begin for i: = 1 to 30 do begin writeln('введите номер ученика: '); read(a[1,i]); writeln('введите оценку: '); read(a[2,i]); end; for i: = 1 to 10 do begin writeln(i: 2,' - '); for j: = 1 to 30 if a[1,j]=i then write(a[2,i],' '); end; readkey; end.
Популярные вопросы