Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Пожалуйста помогите решить задачу в бейсике

Пожалуйста помогите решить задачу в бейсике - вопрос №223830

Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, выполняющую задач. Найти сумму и количество всех четных положительных элементов. Например, если А={2,4,–3,0,5,–2,6}, результат: 12 и 4 (2, 4, 0, 6).

Лена
12.03.12
Учеба и наука / Информатика
1 ответ

Ответы

Рейтинг: 3 640

program m1;
var
a: array [1..10] of integer;
i: integer;
n, s: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(40)-20;
write('a(', i, ')=', a[i], ' ')
end;
s:=0;
n:=0;
for i:=1 to 10 do
begin
  if (a[i] mod 2=0) and (a[i]>0) then
  begin
    s:=s+a[i];
    n:=n+1
  end;
end;
write('Sum=',s, '  Counter=',n);
readln
end.
13.03.12

Еva
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее