Const n = 5; var a: array[1..n, 1..n] of integer; b: array[1..n] of real; i, j, k: integer; begin //считываем матрицу for i:=1 to n do for j:=1 to n do readln(a[i, j]); //находим среднее для каждой строки //и заполняем ими массив b for i:=1 to n do begin k:=0; for j:=1 to n do k:=k+a[i,j]; b[i] := k/n; end; //вывод массива b for i:=1 to n do writeln(b[i]); end.
var a : array [1..4] of char; i, k, l, m, N : byte; begin a[1] := 'Л'; a[2] := 'Е'; a[3] := 'Т'; a[4] := 'О'; for i := 1 to 3 do begin for k := 1 to 4 do begin for l := 1 to 4 do begin for m := 1 to 4 do begin if i <> 2 then begin write(a[i], a[k], a[l], a[m], ' ,'); N += 1; end; end; end; end; end; writeln('Всего: ', N) end.
var a : array [1..4] of char; i, k, l, m, N : byte; begin a[1] := 'Л'; a[2] := 'Е'; a[3] := 'Т'; a[4] := 'О'; for i := 1 to 3 do begin for k := 1 to 4 do begin for l := 1 to 4 do begin for m := 1 to 4 do begin if i <> 2 then begin write(a[i], a[k], a[l], a[m], ' ,'); N += 1; end; end; end; end; end; writeln('Всего: ', N) end.
var
a: array[1..n, 1..n] of integer;
b: array[1..n] of real;
i, j, k: integer;
begin
//считываем матрицу
for i:=1 to n do
for j:=1 to n do
readln(a[i, j]);
//находим среднее для каждой строки
//и заполняем ими массив b
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
k:=k+a[i,j];
b[i] := k/n;
end;
//вывод массива b
for i:=1 to n do
writeln(b[i]);
end.