помогите написать программу в паскале: дано натуральное число n и последовательность целых чисел a1,a2,...an. найдите

Question

помогите написать программу в паскале: дано натуральное число n и последовательность целых чисел a1,a2,...an. найдите

виктория леви Ученик (89), закрыт 8 лет назад

количество чисел превосходящих первое число и произведение четных чисел. ( необходимо предусмотреть что таких чисел может быть несколько). программа должна быть написана с помощью цикл и ветвлений

Answer 1

readln(f,n) // Читаем n из файла
read(f,a1) //Читаем a1 из файла
sum:=0;
pr:=1;
For i:=2 to n do begin //Запускаем цикл чтобы узнать все числа
read(x); //читаем очередное число
if x > a1 then sum:=sum+1; // Если очередное число больше чем a1 то мы прибавляем 1 к количеству
if x mod 2 = 0 then pr:=pr*x; //Если остаток от деления на 2 равен 0, то мы умножаем
end;
write(sum, ' ',pr); //выводим количество и произведение

Answer 2

Paul sir McCartney Мыслитель (7041) 8 лет назад

На паскале.

Answer 3

Ольга Макоткина Знаток (306) 8 лет назад

Платно

Answer 4

program qq;
const n=5;
var a:array[1..n] of integer;
i,s,x:integer;
begin
for i:=1 to n do readln(a[i]);
s:=1;
x:=0;
for i:=1 to n do
begin
if a[i] mod 2 =0 then s:=s*a[i];
end;
writeln('=======================');
writeln('Произвеение: ',s);
writeln('Искомые числа: ');
for i:=1 to n do
begin
if (a[i]>a[1])and (a[i]>s) then
begin
writeln(a[i]);
x:=x+1;
end;
end;
writeln();
write('Всего чисел: ',x);
end.

Answer 5

если я правильно понял суть, то вот:

const n=5;
var i:integer;
a:array[1..n] of integer;
b:integer;
begin
for i:=1 to n do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=2 to n do
if a[i]>a[1]then b:=b+1;
writeln('Чисел больше ',a[1],' - ', b);
b:=1;
for i:=1 to n do
if a[i] mod 2 = 0 then b:=b*a[i];
writeln('Произведение четных чисел: ',b);
end.