Задать вопрос
17 июля, 16:25

дан целочисленный массив из 30 элементов. Вывести количество отрицательных, положительных и равных нулю элементов (массив записать в 1. txt)

+1
Ответы (2)
  1. 17 июля, 16:47
    0
    Program i5;

    var

    s, d, r, i: integer;

    a:array [1 ... 30] of integer;

    begin

    for i:=1 to 30 do

    readln (a[i]) ;

    s:=0;

    d:=0;

    r:=0;

    for i:=1 to 30 dot

    begin

    if a[i]<0 then

    s:=s+1;

    if a[i]>0 then

    d:=d+1;

    if a[i]=0 then

    r:=r+1;

    end;

    writeln (s,'_', d,'_', r) ;

    end.
  2. 17 июля, 16:49
    0
    Var t:text;

    a:array[1 ... 30] of integer;

    i, m, b, r:integer;

    begin

    assign (t,'output. txt') ;

    rewrite (t) ;

    for i:=1 to 30 do begin

    read (a[i]) ;

    if a[i]>0 then b+=1

    else if a[i]<0 then m+=1

    else r+=1;

    write (t, a[i],' ') ;

    end;

    write (m,' ', b,' ', r) ;

    close (t) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «дан целочисленный массив из 30 элементов. Вывести количество отрицательных, положительных и равных нулю элементов (массив записать в 1. txt) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы