Var
a:array[1..35]of integer;
i,max,n:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
for i:=1 to n do
if a[i]>max then
max:=a[i];
writeln;
writeln(max);
end.
from random import randint as random
m = [random(1,100) for i in range(1,30+1)]
s = -1
for i in range(0,30):
print('{:3.0f}'.format(m[i]))
for i in range(0,28):
if m[i]+m[i+1]+m[i+2]>s:
a = m[i]
b = m[i+1]
c = m[i+2]
s = a + b + c
print(' a b c')
print('{:3.0f}'.format(a))
print('{:3.0f}'.format(b))
print('{:3.0f}'.format(c))
1)
var s,k:integer;
begin
s:=0;
begin for k:= 6 to 12 do
s:=s+5;
end;
write(s);
end.
Ответ
35
2)
var Dat: array [1..7] of integer;
k, m, day: integer;
begin
Dat[1]:=7;
Dat[2]:=9;
Dat[3]:=10;
Dat[4]:=8;
Dat[5]:=6;
Dat[6]:=7;
Dat[7]:=6;
day:= 1;
m:=Dat[1];
begin for k:=2 to 7 do
if Dat[k]<m then
begin m:=Dat[k];
day:=k;
end;
end;
write(day);
end.
Ответ
5
Таблица или картина ( Макет самолет и так далее)