Регистрация
aiiiiiidana
24.11.2020 09:12
Информатика
Есть ответ 👍

Підписати назви кнопок

130
216
Посмотреть ответы 1

Ответы на вопрос:

Когалымчанин
Когалымчанин
4,5(35 оценок)
Program gt; var n,i,max,min: integer; a: array[1..100]of integer; begin read(n); {n-кол-во учащихся} for i: =1 to n do read(a[i]); max: =a[1]; min: =a[1]; for i: =1 to n do begin if(a[i]> max)then max: =a[i]; if(a[i]< min)then min: =a[i]; end; writeln(max,' ',min,'-росты') max: =max-min; writeln(max); end. 2) program gt; var n,i,a,k: integer; begin read(n); k: =0; for i: =1 to n do begin read(a); if(a< 1958)then k: =k+1; end; writeln(k); end. 3) program gt; var i,q,a,l: integer; begin for i: =8 to 20 do begin read(a); if(a< 0)then begin q: =q+1; if(q=1)then l: =i; end; end; writeln(l); end.

Популярно: Информатика