Даны сведения о книгах в библиотеке: фамилия автора, название книги и год издания. Напечатать автора и название книг, го

[greshnik92]

Сама задача такова: Даны сведения о книгах в библиотеке: фамилия автора, название книги и год издания. Напечатать автора и название книг, год издания которых оканчивается на цифру “7”.
На Паскале она выглядит вот так(программа внизу), а вот на C++ вообще без понятия как её сделать.....

uses crt;
type beg=record
         fm:string[20];
         im:string[20];
         ob:string[20];
         rs:real;
         end;
var f:text;
    z:array[1..100] of beg;
    n,i,imn:byte;
    mn:real;
begin
assign(f,'Бег.txt');
rewrite(f);
clrscr;
write('Количество спортсменов n=');
readln(n);
writeln('Введите данные о ',n,' спортсменах');
  for i:=1 to n do
  begin
  writeln('Спортсмен ',i);
  write(' Фамилия: ');readln(z[i].fm);write(f,' ',z[i].fm);
  write(' Имя: ');readln(z[i].im);write(f,' ',z[i].im);
  write(' Общество: ');readln(z[i].ob);write(f,' ',z[i].ob);
  write(' Результат: ');readln(z[i].rs);write(f,' ',z[i].rs);
  end;
     mn:=z[1].rs;
     imn:=1;
     for i:=1 to n do
     if z[i].rs>mn then
     begin
     mn:=z[i].rs;
    end;
     for i:=1 to n do
     if z[i].rs=mn then begin
     write('Худший результат ',z[i].rs:0:2,' имеет ',z[i].fm,'  ',z[i].im,' из спортивного сообщества   ',z[i].ob);
     write(f,'  Худший результат ',z[i].rs:0:2,' имеет ',z[i].fm,'  ',z[i].im,' из спортивного сообщества   ',z[i].ob); end;
     close(f);

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Вы точно уверены, что на Паскале именно задача решена?!

Даны сведения о книгах в библиотеке

write('Количество спортсменов n=');....
writeln('Введите данные о ',n,' спортсменах');

А вообще, зря поиском не пользуетесь.
вот, в течение буквально пары минут:

Структуры/записи/массивы

Структуры

[greshnik92]

да на паскале задача решена... тока там условие немного другое... а так она работает...

[greshnik92]

спасибо за подсказку насчёт поиска, и спс а ссылки помогли..)))