массив в paskal abc. каждому элементу, стоящему на 1, 4, 7-м

Массив в paskal abc. каждому элементу, стоящему на 1, 4, 7-м и т.д., местах, присваивается число 0, остальным - число 3.информатика

Задать свой вопрос
1 ответ
Const n=20;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
 if i mod 3 = 1 then a[i]:=0 else a[i]:=3;
for i:=1 to n do write(a[i]:2);
writeln;
end.

Итог:
 0 3 3 0 3 3 0 3 3 0 3 3 0 3 3 0 3 3 0 3
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт