Регистрация
mrazamar0kk
05.05.2021 05:54
Информатика
Есть ответ 👍

В программе используется одномерный целочисленный массив A с индексами от 1 до 10. Значения элементов равны 4, 3, 1, 8, 4, 7, 0, -9, 1, 5 соответственно, т. е. A[1] = 4, A[2] = 3, и т. д. Определите значения элементов массив В после выполнения следующего фрагмента программы:

begin

for i := 1 to 10 do

if В[i] mod 2 = 0 then

В[i]:= 2*i;

end;

188
301
Посмотреть ответы 1

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

ЛераВ223
ЛераВ223
4,4(62 оценок)
Var   n,i : integer;       a : array [1..3] of integer;   begin read(n);   while n> =35 do    begin   inc(a[3]);     n: =n-60;   end;   while n> =9 do      begin    inc(a[2]);   n: =n-10;   end;   while n> =1 do    begin    inc(a[1]);   dec(n);   end;   for i: =1 to 3 do    write(a[i], ' ');   end.

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