Const n=5; m=4; var a:array[1..n,1..m] of integer; i,j,k,d,s:integer; begin Randomize; writeln('Оценки:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(4)+2; write(a[i,j]:4); end; writeln; end; k:=0; s:=0; for i:=1 to n do begin d:=0; for j:=1 to m do begin if a[i,j]=2 then d:=d+1; s:=s+a[i,j]; end; if d>0 then k:=k+1; end; writeln('Количество неуспевающих = ',k); writeln('Средний группы = ',s/n/m); end.
Пример: Оценки: 5 3 3 5 3 4 2 2 4 5 5 5 2 4 4 2 5 2 3 3 Количество неуспевающих = 3 Средний группы = 3.55
Program matrix; var A: array[1..10, 1..10] of integer; i, j, mini, minj, maxi, maxj, temp: integer; begin Randomize; for i := 1 to 10 do begin for j := 1 to 10 do begin A[i, j] := random(100); write(A[i, j], ' '); end; writeln; end; mini := 1; minj:=1; maxi := 1; maxj:=1; for i := 1 to 10 do for j := 1 to 10 do begin if A[i, j] < A[mini,minj] then begin mini := i; minj := j; end; if A[i, j] > A[maxi,maxj] then begin maxi := i; maxj := j; end; end; WriteLn('min = ',A[mini,minj],' это ',mini,' ряд ',minj,' столбца.' ); WriteLn('max = ',A[maxi,maxj],' это ',maxi,' ряд ',maxj,' столбца.' ); temp := A[maxi, maxj]; A[maxi, maxj] := A[mini, minj]; A[mini, minj] := temp; writeln; for i := 1 to 10 do begin for j := 1 to 10 do write(A[i, j], ' '); writeln; end; readln; end. temp - переменная для временного хранения минимальных и максимальных элементов.
var
a:array[1..n,1..m] of integer;
i,j,k,d,s:integer;
begin
Randomize;
writeln('Оценки:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(4)+2;
write(a[i,j]:4);
end;
writeln;
end;
k:=0; s:=0;
for i:=1 to n do
begin
d:=0;
for j:=1 to m do
begin
if a[i,j]=2 then d:=d+1;
s:=s+a[i,j];
end;
if d>0 then k:=k+1;
end;
writeln('Количество неуспевающих = ',k);
writeln('Средний группы = ',s/n/m);
end.
Пример:
Оценки:
5 3 3 5
3 4 2 2
4 5 5 5
2 4 4 2
5 2 3 3
Количество неуспевающих = 3
Средний группы = 3.55