Регистрация
dulikosha20051
03.11.2020 17:37
Информатика
Есть ответ 👍

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

294
407
Посмотреть ответы 2

Ответы на вопрос:

flox1998
flox1998
4,5(97 оценок)

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.

Lopsiwk
Lopsiwk
4,5(92 оценок)
Var   x: string;   n, i: integer;   begin   readln(x);   for i : = 1 to length(x) do       case x[i] of       '0', '4', '6', '9': inc(n);       '8': inc(n, 2);       end;   writeln(n); end.

Популярно: Информатика