Регистрация
lenaburlacu
23.11.2021 14:21
Информатика
Есть ответ 👍

Задача в паскале абс, на одномерные массивы. Если хотя бы один элемент одномерного массива отрицательный, то вывести сообщение «ЭЛЕМЕНТ ОТРИЦАТЕЛЬНЫЙ ЕСТЬ», иначе «ВСЕ ПОЛОЖИТЕЛЬНЫЕ».

148
311
Посмотреть ответы 2

Ответы на вопрос:

gunelmustafaeva
gunelmustafaeva
4,4(55 оценок)

const N = 10;

var a: array [1..N] of integer;

begin

   for var i:=1 to N do

   begin

       a[i] := random(-2, 30);

       write(a[i], ' ');

   end;

   writeln();

   var answer := 'ВСЕ ПОЛОЖИТЕЛЬНЫЕ';

   for var i:=1 to N do

   begin

       if a[i] < 0 then

       begin

           answer := 'ЭЛЕМЕНТ ОТРИЦАТЕЛЬНЫЙ ЕСТЬ';

           break;

       end;

   end;

   writeln(answer);

end.

temirlanrashid
temirlanrashid
4,5(65 оценок)

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

Популярно: Информатика