Массивы.

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

Question

Информатика

Венедикт

12 июля, 00:48

Массивы.

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

+3

Ответы (1)

Знаете ответ?

Леонинка · Answer 1

Uses Crt;

var

i:integer;

a:array[1 ... 10] of integer;

count: integer;

Begin

ClrScr;

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.

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

Массивы.

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