var a: array [1..Sz] of integer; N: integer; // Количество элементов в массиве i,k: integer; min,max: real; begin k:=0; N:= 10; for i:=1 to N do begin read(a[i]); k:=k+a[i]; end; write('Вывод элементов массива: '); for i:=1 to N do write(a[i],' '); min := a[1]; for i:=2 to N do if a[i]<min then begin min := a[i]; end; max := a[1]; for i:=2 to N do if a[i]>max then begin max := a[i]; end; writeln('max=',max,' ','min=', min,' ','Средная температура=',k/N) end.
1) program chik; var a:array[1..100]of integer; i,s:integer; begin for i:=1 to 11 do begin read(a[i]); end; s:=0; for i:=1 to 11 do begin if(a[i] mod 5=0)then s:=s+a[i]; end; write(s); end. 2) program chik2; var a:array[1..100]of integer; i,s:integer; begin s:=0; for i:=1 to 11 do begin read(a[i]); end; s:=0; for i:=1 to 11 do begin if(a[i] mod 2=1)then s:=s+1]; end; write(s); end. 3) program chik3; var a:array[1..1000]of integer; i:integer; begin for i:=1 to 9 do begin read(a[i]); end; for i:=1 to 9 do begin if(a[i] mod 2=0)then write(a[i],' '); end; end.
