Вот первое задание на рис 1, и 3 е на рис 2. Надеюсь помог)
Var k, m : integer;
Dat: array[1..10] of integer;
Begin
for k:=1 to 10 do
Readln (Dat[k]);
m := 0;
for k := 1 to 10 do;
if Dat[k]>m then
begin
m := Dat[k]
end;
writeln(m);
End.
PascalABC.Net
1)
var
i,s,p : integer;
begin
s := 0;
p := 1;
for i := 3 to 18 do
if (i-2) mod 3 = 0 then
begin
s := s + i;
p := p * i;
end;
writeln ('s=',s);
writeln ('p=',p);<span>
end.
2)
Программа не зачисляет процент в первый год, если нужно, чтобы зачислила, то поменяй местами строки вывода и присвоения внутри цикла
var
i : integer;
s : real;
begin
s := 10000;
for i := 2010 to 2015 do
begin
writeln (i,'-',s);
s := s * 1.1;
end;<span>
end.</span></span>