Связь с администрацией сайта:       

demo

Среди толпы я одинок

Отпечатать номера тех строк, которым соответствует средний балл студента, больший заданной величины, и число таких строк

Дана матрица с 4 столбцами и 6 строками. В каждой строке содержатся оценки одного из 6 студентов по 4 экзаменам. Отпечатать номера тех строк, которым соответствует средний балл студента, больший заданной величины, и число таких строк на языке Pascal(Паскаль).

 

Const
n=6;
m=4;
Var
a:array [1..n,1..m] of integer;
i,j,k,s:integer;
c:real;

Begin Writeln('Введите средний балл для сравнения:'); Readln(c);

for i:=1 to n do begin Writeln('Оценки ',i,' студента:'); for j:=1 to m do begin Write(j,' - '); Readln(a[i,j]); end; end; Writeln('Исходная матрица:');

for i:=1 to n do begin for j:=1 to m do Write(a[i,j]:5); Writeln; end; k:=0;

for i:=1 to n do begin s:=0; for j:=1 to m do s:=s+a[i,j]; if s/m>c then begin k:=k+1; Writeln(i); end; end;

Writeln('Таких строк: ',k); End.  

 

Rate this item
(0 votes)
Login to post comments