Developing.ru

Код: Выделить всё

Program Fio_Pupil;
uses crt;
const n=5;
var a:array[1..n,1..2] of string;
i,x,cod:integer;
begin
     clrscr;
     writeln;
     writeln('Постановка задачи:');
     writeln('Проводился чемпионат мира по шахматам');
     writeln('По количеству набранных очков были выявлены победители');
     writeln('Вывести инфотрмцию о призёрах на экран');
     writeln;
     writeln('Для продолжения нажмите Enter...');
     Readln;
     Clrscr;
     writeln('Ввод данных...');
     For i:=1 to n do
     begin
     write('Введите фамилию ',i,' участника чемпионата: ');
     Readln(a[i,1]);
     Repeat
     write('Введите набранные очки ',i,'участника чемпионата: ');
     Readln(a[i,2]);
     val(a[i,2],x,cod);
     if (cod<>0) or (x<0) then
     begin
     writeln('Ошибка в записи очков!!!');
     writeln('Повторите ввод...');
     end;
     writeln;
     writeln('Для продолжения нажмите Enter...');
     Readln;
     Clrscr;
     writeln('   Весь список участников');
     writeln('---------------------------');
     writeln('   Фамилия    |   очки   ');
     writeln('---------------------------');
     For i:=1 to n do
     writeln(a[i,1]:10,'|':5,a[i,2]:7);
     writeln('---------------------------');
     writeln;
     writeln('Для продолжения нажмите Enter...');