9 класс Проанализируйте следующую программу и ответьте на вопросы:
1)Сколько элементов содержит данный массив?
2)Какие данные выводит эта программа?
3)Сколько раз используется структура цикл?
4)Найдите две строки, которые не нужны в данной программе и выпишите их.
5)Что выведет данная программа, если ввести 2,3,4,5,6?
6)Дополните программу так, чтобы она находила ещё и сумму четных элементов массива. (Данное
задание выполняется на языке PascalABC.NET или в программе «блокнот». НЕ НА БУМАГЕ, так
как в этом случает проверить корректность выполнения будет крайне затруднительно.
const N = 5;
var
a: array[1..N] of integer;
mi, ma, i: integer;
b: integer;
begin
for i:=1 to N do
readln (a[i]);
mi:= 1;
ma:= 1;
for i:=1 to N do
begin
if a[i] < a[mi] then
mi := a[i]
else
if a[i] > a[ma] then
ma := a[i];
end;
b := a[mi];
a[mi] := a[ma];
a[ma] := b;
if a[1]=0 then
write (‘readln’);
for i:=1 to N do
write(a[i]);
writeln;
end.

05Artur10    3   28.01.2021 22:51    12