определите назначение программы:
program Hello;
const N=10;
var A: array[1..N] of integer;
I: integer; S:real;
begin
for I:=1 to N do read(A[i]);
S:=0;
for I:=1 to N do
if A[i] mod 2=0 then S:=S+1;
S:=S*100/N;
writeln(S)
end.
program Hello;
const N=10;
var A: array[1..N] of integer;
I: integer; S:real;
begin
for I:=1 to N do read(A[i]);
S:=0;
for I:=1 to N do
if A[i] mod 2=0 then S:=S+1;
S:=S*100/N;
writeln(S)
end.
More Questions From This User See All
Answers & Comments
Ответ:
Считает в процентах количество введённых чётных чисел от общего числа.
Объяснение:
Программа заполняет массив вводом с клавиатуры.
Массив 10 целых чисел (N – задано как константа)
Перебором вычисляет делится ли элемент массива на 2 без остатка
Если да, то увеличивает счётчик
Выводит процент чётных (делятся на 2) чисел от количества элементов массива.