begin sum:=0; pr:=1; for var i:=1 to N do begin read(a[i]); if (a[i] mod 5=0) and (a[i] mod 2=0) then sum+=a[i] else pr*=a[i] end; println(sum, pr); end.
Const N = 3; M = 4; Var A:array[1..N,1..M] of real; i,j:integer; Sr,B,C:real; Begin Randomize; WriteLn('Исходная матрица:'); For i:= 1 to N do Begin For j:= 1 to M do Begin A[i,j]:=random()*13; Write(A[i,j]:6:3,' ') End; WriteLn; End; WriteLn; WriteLn('Сглаженная матрица:'); For i:= 1 to N do Begin B:=A[i,1]; C:=A[i,2]; A[i,1]:=(B+C)/2; For j:= 2 to M-1 do Begin Sr:=(B+C+A[i,j+1])/3; B:=A[i,j]; A[i,j]:=Sr; End; A[i,M]:=(B+A[i,M])/2 End; For i:= 1 to N do Begin For j:= 1 to M do Write(A[i,j]:6:3,' '); WriteLn; End End.
Var a: array[1..255] of integer; b: array[1..10000] of integer; s: string; i,mx,tek,ind,n: integer; begin // задание 1 write('строка: '); readln(s); mx:=0; ind:=0; for i:=1 to 255 do a[i]:=0; for i:=1 to length(s) do if s[i] in ['a'..'z'] then inc(a[ord(s[i])]); for i:=ord('a') to ord('z') do if a[i]>mx then begin mx:=a[i]; ind:=i; end; writeln('наиболее часто встречается буква: ',chr(ind),' - ',mx); // задание 2 write('N = '); readln(n); mx:=0; tek:=0; read(b[1]); for i:=2 to n do begin read(b[i]); if b[i]<=b[i-1] then inc(tek) else begin if tek>mx then mx:=tek; tek:=0; end; end; if mx>0 then writeln(mx+1) else writeln(0); end.
var a: array [1..N] of integer;
sum, pr: integer;
begin
sum:=0; pr:=1;
for var i:=1 to N do begin
read(a[i]);
if (a[i] mod 5=0) and (a[i] mod 2=0) then sum+=a[i]
else pr*=a[i]
end;
println(sum, pr);
end.