составьте алгоритм решения задачи с блок схемы: вычислить сумму кубов чисел от 1 до введённого числа n.

142

499

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

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

Tokalexandra

Информатика

4,7(99 оценок)

Const n=10; var a: array[1..n] of integer; i: integer; b: boolean; begin writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(21)-10; write(a[i],' '); end; writeln; b: =false; i: =1; while (i< n) and not b do begin b: =(a[i]> 0)and(a[i+1]> 0); i: =i+1; end; if b then writeln(i-1,' ',i) else writeln('no'); end. пример: исходный массив: -10 -7 4 6 4 -8 1 10 -2 -10 3 4