Program sum;
Uses crt;
Var A: array [1..40] of integer;
i,s: integer; {i - переменная цикла, s - сумма}
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 40 do
read(a[i]);
writeln;
s:=0;
for i:=1 to 40 do
begin
if (i mod 3=0) then
s:=s+a[i];
end;
Writeln('S = ',s);
readln;
readkey;
end.
<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<span>screen 12
for x=0 to 640 step 5
cls
circle (x,240), 25
circle (x+100,240), 25
line (x+30,240)-(x+70,240)
line (x-50,240)-(x-30,240)
line (x+150,240)-(x+130,240)
line (x+150,240)-(x+150,190)
line (x-50,240)-(x-50,190)
line (x-50,190)-(x-10,190)
line (x+110,190)-(x+150,190)
circle (x+50,190),60 ,, 0 , 3.14
circle (x,240),30 ,, 0 , 3.14
circle (x+100,240),30 ,, 0 , 3.14
next x</span></span>
= это сравнение
:= это оператор присваивания
Одинизних, наверное 3д моделирование
