1 задание var a:array[1..10000000] of integer; sk:real; i,n:integer; begin Write('Размер массива - '); readln(n); Write('Заполните массив - '); for i:=1 to n do begin read(a[i]); end; for i:=1 to n do begin write(a[i]+5,' '); end; writeln(); for i:=1 to n do sk:=sk+sqrt(a[i]); write('Сумма квадратов ',sk); end. 2 задание var a:array[1..12] of real; max,min:real; i:integer; begin write('Введите сред. t за каждый месяц - '); for i:=1 to 12 do begin read(a[i]); end; max:=a[1]; for i:=1 to 12 do begin if a[i]>max then max:=a[i]; end; min:=a[1]; for i:=1 to 12 do begin if a[i]<min then min:=a[i]; end; writeln('Максимальная t за год - ',max,' градусов. Минимальная t за год - ',min,' градусов.'); end. 3 задание var a:array[1..12] of real; sum:real; i:integer; begin write('Введите учеников - '); for i:=1 to 12 do begin read(a[i]); end; for i:=1 to 12 do begin sum:=sum+a[i]; end; sum:=sum/12; writeln('Средний уровень успеваемости - ',sum); end.
function Maxii(ar:MyArr): integer; var i,max:integer; begin; Max:=-2147483648; for i:=1 to n do if ar[i]>max then begin; max:=ar[i]; maxii:=i; end; end;
function Amp(ar:MyArr):integer; var i,max,s:integer; p:real; begin; Max:=-2147483648; for i:=1 to n do if ar[i]>max then max:=ar[i]; p:=max/100*10; for i:=1 to n do if ar[i]>=max-p then inc(s); Amp:=s; end;
begin; for i:=1 to n do begin; readln(ar[i]); k:=k+ar[i]; end; k:=k/n; writeln('Средний рост:',k); maxi:=maxii(ar); writeln('Самый высокий призывник:',maxi); val:=Amp(ar); writeln('4:',val); end.
