Дан массив из...

Тема в разделе "Информатика", создана пользователем korkina, 26 фев 2010.

  1. korkina

    korkina New Member

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

    помогите решить,паскаль
     
    korkina, 26 фев 2010
    #1
  2. Шутnik

    Шутnik New Member

    Program z10;
    var a,b:Array [1..10] of integer;
    i,q,k:integer;
    Begin
    Randomize;
    q:=0;k:=0;
    For i:=1 to 10 do
    begin
    a:=random(40)-20;
    if(a<0)then q:=q+1;
    if(a>0)then k:=k+1;
    end;
    if(k>q)then writeln('положительных больше');
    if(k<q)then writeln('отрицательных больше');
    if(k=q)then writeln('положительных и отрицательных одинак.. кол-во');
    end.
     
    Шутnik, 26 фев 2010
    #2

Поделиться этой страницей

Наша группа