Natutp113

12.10.2021 05:43

Информатика

Есть ответ 👍

Проанализируйте следующую программу и ответьте на вопросы: 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[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.