Var i,max,min,imax,imin,sum,kol:longint; a:array [1..1000] of longint; begin i:=1; readln(a[i]); max:=0; min:=maxint; sum:=0; kol:=0; while a[i]<>0 do begin if a[i] mod 2=0 then begin kol:=kol+1; sum:=sum+a[i]; end; if a[i]>max then begin max:=a[i]; imax:=i; end; if a[i]<min then begin min:=a[i]; imin:=i; end; i:=i+1; readln(a[i]); end; writeln('Количество чисел:',kol,',сумма чисел:',sum); writeln('максимальное из чисел: ',max,',номер максимального числа:',imax); writeln('минимальное из чисел: ',min,',номер минимального числа:',imin); end.
Пример: 15 27 94 60 51 0 Количество чисел:2,сумма чисел:154 максимальное из чисел: 94,номер максимального числа:3 минимальное из чисел: 15,номер минимального числа:1
Var a:array[1..12]of real; i:integer; s1,s2,s3,s4:real; begin for i:=1 to 12 do begin writeln('Введите среднемесячную температуру за ',i,' месяц:'); read(a[i]); if i<=3 then s1:=s1+a[i] else if (i>3)and(i<=6) then s2:=s2+a[i] else if (i>6)and(i<=9) then s3:=s3+a[i] else s4:=s4+a[i]; end; writeln('Средняя температуры зимних месяцев: ',s1/3); writeln('Средняя температуры весенних месяцев: ',s2/3); writeln('Средняя температуры летних месяцев: ',s3/3); writeln('Средняя температуры осенних месяцев: ',s4/3); end.
begin
readln(ch);
sot:= ch div 100;
des:= ch mod 100;
des:= des div 10;
ed:=ch mod 10;
writeln(ed*100+des*10+sot);
end.