Регистрация
LEXSUS18
07.02.2023 00:40
Информатика
Есть ответ 👍

2.В программе используется одномерный целочисленный массив A с индексами от 0 до 10.
Значения элементов равны 0, 7, 1, 3, 2, 14, 5, 9, 11, 0, 7, т.е. A[0]=0, A[1]=7 и т.д. Определите
значение переменной s после выполнения следующего фрагмента программы:
n := 10;
s := 0;
for i:=2 to n do
if A[i-1] < A[i] then begin
t := A[i-1];
A[i-1] := A[i];
A[i] := t + 1;
s := s + 1
end;
50 баллов

126
392
Посмотреть ответы 1

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

vika00vgbjh
vika00vgbjh
4,5(12 оценок)
//pascal abc.net v3.1 сборка 1172 var   i,k,s: integer; begin   for i: =0 to 1000 do   if (i mod 5=0) and (i mod 10=0) then     begin       inc(k);       s: =s+i;     end;   write('сумма=',s,' количество=',k); end.

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