Составь таблицу трассировки и программу для решения следующей задачи:Даны числа от 10 до 20, найти сумму квадратов этих чисел

224

441

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

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

zzsasz33

Информатика

4,8(19 оценок)

Program znanija; const n = 7; var a: array[1..n] of integer; mini, min, i, b: integer; begin mini : = 1; write('введите массив из ', n, ' элементов: '); for i : = 1 to n do begin read(b); a[i] : = b; if i = 1 then min : = b; if b < min then begin min : = b; mini : = i; end; end; write('массив в обратном порядке: '); for i : = n downto 1 do write(a[i], ' '); writeln(); write('минимальный элемент массива ', min, ', его номер ', mini); end.