Реферат: Одномерные массивы. Организация ввода и вывода данных

Количество страниц;

а) Найти название книг данного автора, изданных с 1960 года.

б) Определить имеются ли книги с названием «Информатика», если да, то сообщить фамилию авторов, год издания и количество страниц.

в) Вывести название книг и их авторов, если количество страниц превосходит среднее количество страниц по всему списку.

PROGRAM P1;

Type knigi=record

fam:string;

name:string;

page:integer;

god:integer;

End;

Var Spisok:array[1..5] of knigi;

i,o,summa:integer; m:string;

Sr:real;

Begin

For i:=1 to 5 do

Begin

With Spisok[i] do

Begin

Writeln('Vvedite familiu avtora', i);

Readln(fam);

Writeln('Vvedite nazvanie knigi', i);

Readln(name);

Writeln('vvedite god izdaniya');

Readln(god);

Writeln('Vvedite kolichestvo stranic');

Readln(page);

End;

End;