Массивы.
Заполнить массив следующими числами: 3,-6,9,-12...30

Uses Crt;vari:integer;a:array[1..10] of integer;count: integer;BeginClrScr;for i:=1 to 10 do begin a[i]:=i*3;if i mod 2 = 0 then a[i]:= a[i]*(-1);write(a[i],' ');end;End.