Составить программу заполнения массива ,не используя клавиатуру ,числами :

Составить программу наполнения массива ,не используя клавиатуру ,числами : -2,4,6,-8,-10,12,-14,-16,-18,22
В BPascal

Задать свой вопрос
1 ответ
1 uses crt; 2 var a:array[1..10]ofinteger; 3 i:byte; 4 begin5 for i:=1to10do6 begin7 ifodd(i)then a[i]:=i-(i*3)8 else a[i]:=i*2; 9 write(a[i]:4); 10 end
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт