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

Паскаль - вопрос №495827

Дан массив Xi, i=1, ..., 15. Найти кол-во положительных и отрицательных элементов массива К1 И К2. Определить, что больше К1 или К2 и на сколько. Спасибо

KarinaСеребряный
16.12.12
Учеба и наука / Информатика
1 ответ
Паскаль

Лучший ответ по мнению автора

Валентина

program pr;

var x:array[1..15] of integer;

i,k1,k2:integer;

begin

writeln('vvedite massiv');

for i:=1 to 15 do

readln(x[i]);

k1:=0;k2:=0;

for i:=1 to 15 do

if x[i]>0 then k1:=k1+1 else

  if x[i]<0 then k2:=k2+1;

if k1>k2 then writeln('pologiteln bolshe')

else if k2>k1 then   writeln(otricat bolshe')

else writeln('ravno');

readln

end.

Буду благодарна, если отметите 
16.12.12
Лучший ответ по мнению автора

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