• Регистрация
Добро пожаловать на сайт Ответы онлайн, где вы можете задавать вопросы и получать ответы от других членов сообщества.
0 голосов
2 просмотров

Помогите пожалуйста.
1)Cоставить программу удвоения каждого элемента массива A(n) порядковый номер которого кратен 3
2)Дан массив А(n) целых чисел,каждый третий элемент массива заменить на его порядковым номером.Вывести массив на печать.

спросил от (90 баллов) в категории Информатика
0

на с/с++ пойдет?

0

нет мне нужна на паскале.

1 Ответ

0 голосов

1)program array;

var A : array[1..10000] of integer;

   i:integer;

begin

for i:=1 to length(A) do begin

   if i mod 3 = 0 then

       A[i]:=A[i]*2;

end;

end.

-----------------------------------

2)program fff;

var A : array[1..100] of integer;

   i,n:integer;

begin

for i:=1 to n do begin

   if i mod 3 = 0 then

       A[i]:=i;

end;

end.

ответил от Начинающий (292 баллов)
...