Регистрация
Мюсли004
16.12.2022 04:58
Информатика
Есть ответ 👍

В программе исполняется одномерный целочисленный массив А с индексами от 0 до 9. Значения элементов равны 2, 8, 7, 8, 5, 3, 10, 1, 9, 12 соответственно, т.е А[0]=2, A[1]=8 и т.д. Определите значение переменной S после выполнения следующего фрагмента этой программы. S:=0;
n:=0;
for i:=1 to 9 do
if (A[i] +A[n]) mod 5 < > 0 then
begin
S:=S+i;
t:=A[i];
A[i]:= A[n];
A[n]:=t;
end;

246
347
Посмотреть ответы 1

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

mirafill
mirafill
4,4(98 оценок)

program p1;

begin

 for var i := 100 to 999 do begin

   if (i mod 5 = 0) and (i mod 3 <> 0) then writeln(i);

 end;

end.

Объяснение:

PascalABC.NET

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