Создать програму на Paskal

Создать програму на Paskal. Відомості про книгу складаються з прізвища автора, назви та року видання. Ввести набір з 12 такихвідомостей. Знайти назву книг даного автора, виданих з 1970 по 1990 рік. Впорядкувати відомості по першій літері прізвища автора. Замінити старий рік видання на 1992 р., передбачаючи, що одна з книг перевидана.

в избранное

olgaplay

18 марта 2023

Я плохо понимаю украинский, я сделал сортировку массивов по фамилиям автора от а до я. И заменил даты меньшие 1970. uses crt; vara,b,i,j,y1,buk: integer; g: array [1… 12] of integer; f: array [1… 12] of string; n: array [1… 12] of string; y: string; beginclrscr; for i: =1 to 3 do beginwrite ('vvedite nazvanie='); readln (n[i]); write ('vvedite famoliu='); readln (f[i]); write ('vvedite god izdania='); readln (g[i]); end; for i: =2 to 3 do beginbuk: =i-1; for j: =i to 3 do beginif f[j][1]

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?