Отсортировать студентов по среднему баллу


Файл комбинированного типа содержит следующую информацию: фамилию и инициалы студента, название группы, средний бал последней сессии. Нужно вывести список студентов со средним балом выше семи.

Program srball;
Type
stud = Record
fio : String[50];
group: string[10];
SredBal :integer;
End;
Var
f: file of stud;
p : stud;
ch:char;
b:boolean;
Begin
b:=false;
Assign(F,’D:\pascal\Test1.txt’);
try
reset(f);
except
b:=true;
writeln(’Nenaiden fail’);
rewrite(f);
{zapolnim}
writeln(’dobavim zapis? y/n’);
read(ch);
while upcase(ch)=’Y’ do
begin
writeln(’fio - ‘);
Read(p.fio);
writeln(’group - ‘);
Read(p.group);
writeln(’sredbal - ‘);
read(p.sredbal);
write(f,p);
writeln(’dobavim zapis? y/n’);
read(ch);
end;
end;
{4itaem}
if b then reset(f);
while not eof(f) do
begin
read(f,p);
if p.sredbal>7 then writeln(p.fio,’ ‘,p.group,’ ‘,p.sredbal);
end;
close(f);
End.

Теги: , , , , ,

Найти суммы каждой строки матрицы



Дана матрица целых чисел. Найти суммы элементов каждой строки матрицы.

 

Program sumstrok;

const n=4;m=4;

var

    A:array [1..n,1..m] of integer;

    sum,i,j:integer;

begin

writeln;

writeln(’Vvedite elementy massiva:’);

for i:=1 to n do

   for j:=1 to m do

      read(A[i,j]);

writeln();

sum:=0;

for i:=1 to n do

 begin

   for j:=1 to m do sum:=sum+a[i,j];

   writeln(sum);

   sum:=0;

 end;

readln;

end.

Теги: , , , ,

«1234567891011121314151617181920»