31.03.2009, 20:33
|
|
Постоянный
Регистрация: 04.11.2007
Сообщений: 303
С нами:
9746420
Репутация:
119
|
|
Serj_smail, что за max и min?
вторая:
Код:
sum:=0;
for i = 20 to 40 do
begin
sum:=i*i*i+sum;
end;
третья:
Код:
a:array [1..10] of integer;
sum:=0;
for i = 0 to 10 do
begin
if a[i] mod 15 = 0 then
sum:=sum + a[i];
end;
надеюсь помог)
|
|
|