profile
Опубликовано 5 лет назад по предмету Информатика от annmeoww

задан одномерный массив из н чисел сосчитать количество элементов массива положительных отрицательных и нулевых

  1. Ответ
    Ответ дан Issenpilon
    const N = 10;
    var
    mas: array [1..N] of integer;
    i,x,y,z:integer;
    begin
    for i:=1 to 10 do
    read(mas[i]);
    x:=0;
    y:=0;
    z:=0;
    for i:=1 to 10 do begin
    if mas[i]>0 then
    x:=x+1
    else if mas[i]<0 then
    y:=y+1
    else
    z:=z+1
    end;
    writeln('Положительных элементов: ',x);
    writeln('Отрицательных элементов: ',y);
    writeln('Нулевых элементов: ',z);
    end.
Самые новые вопросы