Регистрация
HanjiZ
03.04.2020 09:07
Информатика
Есть ответ 👍

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

237
329
Посмотреть ответы 1

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

Mery0323
Mery0323
4,7(76 оценок)
Var   s, cur: longint;   x, n, i: integer; begin   write('x='); read(x);   write('n='); read(n);   cur : = 1;   s : = 0;   for i : = 1 to n do begin     cur : = cur * x;         s : = s + cur;   end;   writeln('sum=', s) end.

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