помогите пожалуйста написать программу по инфе..."Напишите программу получение из заданного целочисленного массива размером 30 элементов

+ 0 -

Artumka2005

19 апр. 2013 г., 12:29:14 (11 лет назад)

Const N = 30;
Var a:array [1..N] of integer; b,c,d,i:integer;
begin       
Writeln('Vvedite massiv');       
 for i:=1 to N do       
readln(a[i]);       
b:=0; c:=0; d:=0;       
for i:=1 to N do begin       
if a[i] = 0 then inc(b);       
if a[i] > 0 then inc(c);       
if a[i] < 0 then inc(d);       
end;       
writeln('Kol-vo ravnih 0 - ',b);       
writeln('Kol-vo bolshe 0 - ',c);       
writeln('Kol-vo menshe 0 - ',d);       
readln;
end.

+ 0 -

Таня291298

19 апр. 2013 г., 15:13:53 (11 лет назад)

Program Adelia17;
uses crt;
const n=30;
var
  matr:array [1..n] of integer;
  i,pos,neg,zero:integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln(); writeln();
  writeln('Программа находит количество положительных, отрицательных и нулевых элементов массива');
  pos:=0; neg:=0; zero:=0;
  randomize;
  writeln('Массив: ');
  for i:=1 to n do
  begin
      matr[i]:=random(100)-50;
      write(matr[i]:4,' ');
      if matr[i]>0 then pos:=pos+1;
      if matr[i]<0 then neg:=neg+1;
      if matr[i]=0 then zero:=zero+1;
    end;
    writeln();
  writeln('Количество положительных элементов равно ',pos);
  writeln('Количество отрицательных элементов равно ',neg);
  writeln('Количество    нулевых    элементов равно ',zero);
end.

+ 0 -

Multilex

19 апр. 2013 г., 17:15:52 (11 лет назад)

5 минут