Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Помогите написать программу в паскале.
В заданном массиве найти количество чётных чисел. Вывести исходный массив и результат.

Ответ оставил Гость

Вариант с вводом элементов:
Program prog;
uses crt;
var a: array [0..999] of integer;
    i, k, n: integer;
begin
clrscr;
write(Размер массива n = );
readln(n);
writeln;
for i:=1 to n do
begin
write(a[,i,] = );
readln (a[i]);
end;

for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln;
writeln(Количество четных чисел k = , k);
end.

Вариант с рандомными элементами:
Program prog;
uses crt;
var a: array [0..999] of integer;
    i, k, n: integer;
begin
clrscr;
randomize;

write(Размер массива n = );
readln(n);
writeln;
for i:=1 to n do
begin
a[i]:=random(100)-50;
writeln(a[,i,] = ,a[i]);
end;

for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln;
writeln(Количество четных чисел k = , k);
end.