Каких чисел в массиве больше, положительных или отрицательных

@programist alenka · Регистрация: 18.03.2009

Author24 — интернет-сервис помощи студентам

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

@John_Pa9JIbHuK · 05.04.2009, 21:26

Pascal

program oO;
var
a:array [1..20] of integer;
p,o,i:integer;
begin
writeln('BBeDuTe 3JIeMeHTu MaccuBa');
for i:=1 to 20 do
begin
read(a[i]);
if a[i]>0 then
p:=p+1;
if a[i]<0 then
o:=o+1;
end;
if p>o then
writeln('noJIo]|[uTeJIbHbix 6oJIbLLLe=   ' ,p);
if p<o then
writeln('OTpuLLaTeJIbHbIx 6oJIbLLLe=  ' ,o);
if p=o then
writeln('ODuHakoBoe KoJIu4ecTBo   ', p,'=',o);
end.

@programist alenka 0 / 0 / 0 Регистрация: 18.03.2009 Сообщений: 22
		1
	Каких чисел в массиве больше, положительных или отрицательных 05.04.2009, 21:12. Показов 3202. Ответов 1 Метки нет (Все метки) Напишите программу, которая вводит с клавиатуры 20 реальных чисел, организовывает их хранение в одномерном массиве, а затем определяет каких чисел в массиве больше, положительных или отрицательных. Не исключается случай равенства. 0

	05.04.2009, 21:26

Каких чисел в массиве больше, положительных или отрицательных

Решение