Заполнить массив четными числами

27.10.2010, 22:58. **Показов** 10728. **Ответов** 1

Помогите пожалуйста!!

Заполнить массив из 20 элементов четными числами ( a[1]=2, a[2]=4 и.т.д.)

@SuPeR XaKer · 27.10.2010, 23:04

Kate_15

Pascal

Uses
 CRT;
Const
n=20;
var
a:array[1..n] of integer;
i:integer;
begin
ClrScr;
for i:=1  to n do
begin
a[i]:=i+i;
write(a[i]:3);
end;
end.

Kate_15
		1
	Заполнить массив четными числами 27.10.2010, 22:58. Показов 10728. Ответов 1 Метки нет (Все метки) Помогите пожалуйста!! Заполнить массив из 20 элементов четными числами ( a[1]=2, a[2]=4 и.т.д.)

	27.10.2010, 23:04

Опции темы

Решение