Решить в паскале.оценки, полученные спортсменом - вопрос №1650864 от Tanya20042017 18.11.2020 11:20

Question

Информатика: Решить в паскале.оценки, полученные спортсменом в соревнованиях по фигурному катанию (в ) хранятся в массиве из 18 элементов. в первых 6 -ти элементах записаны оценки по обязательной программе, с 7-го элемента по 12-ый записаны оценки по короткой программе, в остальных по произвольной программе. выяснить, по какому виду программы спортсмен показал лучший результат. это одномерный массив

Tanya20042017 · Answer

{Pascal ABC.NET}

var a:array[1..18] of integer;

s1,s2,s3:string;

i,max1,max2,max3:integer;

begin

max1:=0;

max2:=0;

max3:=0;

s1:='Обязательная:';

s2:='Короткая:';

s3:='Произвольная:';

for i:=1 to 18 do

readln(a[i]);

for i:=1 to 18 do

begin

if (i<=6) and (a[i]>max1) then max1:=a[i];

if (i>6) and (i<=12) and (a[i]>max2) then max2:=a[i];

if (i>12) and (a[i]>max3) then max3:=a[i];

end; writeln(s1+max1); writeln(s2+max2); writeln(s3+max3); end.