Как формируются векторные кратко надо. много не надо, как вы любите копировать.

Question

Информатика: Как формируются векторные кратко надо. много не надо, как вы любите копировать.

Mamaluska · Accepted Answer

Const   nn=50; type   data = record     number : 1..31;     month : 1..12;     year : 1901..1997   end; var   d:array[1..nn] of data;   i,n,k:integer;   s,s1,s2,s3:string; begin   Write( Количество дат (1..50)- ); Read(n);   Writeln( Введите через пробел день, месяц, год: );   for i:=1 to n do Read(d[i].number,d[i].month,d[i].year);   { a }   Write( Самый ранний из годов: );   k:=d[1].year;   for i:=2 to n do     if d[i].year k then k:=d[i].year;   Writeln(k);   { б }   Writeln( Все весенние даты...

MOGZ ответил