Ответы на вопрос:
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.
Популярно: Информатика
-
1223345464775888677609.05.2021 22:55
-
ksa409.07.2021 14:20
-
Ник009008.03.2023 21:49
-
kidz12319.11.2022 20:10
-
lmarki200301.09.2022 06:37
-
aftullaeva228.08.2020 03:21
-
айлина2хх21.01.2022 13:17
-
cosmoniksplay931.12.2020 09:21
-
bvoznyk6903.01.2023 07:47
-
tasss102.02.2020 18:04