2) USES CRT; VAR A:array[0..200] of integer; i,max,s:integer; BEGIN CLRSCR; Randomize; Writeln('Дан массив:'); for i:=0 to 200 do begin A[i]:=-100+random(150); Write(A[i],' '); end;
s:=0; max:=A[0];
for i:=0 to 200 do begin if A[i] > max then max:=A[i]; if A[i]>=0 then s:=s+1; end;
Writeln; Writeln('Максимальный элемент массива = ', max); Writeln('Кол-во положительных элементов = ',s); READLN; END.
Var maxd,n,m,lst: integer; begin { считываем с экрана } readln(n); maxd:=0; { последняя цифра } lst:=n mod 10; { цикл по количеству цифр в числе } while true do begin m:=n mod 10; if (m mod 2 =1) then writeln('нечет. цифра = ',m); if maxd < m then maxd:=m; n:=n div 10; if (n=0) then begin writeln('первая цифра = ',m); break; end; end; writeln('последняя цифра = ',lst); writeln('максимальная цифра = ',maxd); end.
ans = 0
for i in range(7):
...ans += int(input())
print(ans)