Регистрация
Marfaaax1338
16.02.2022 07:45
Информатика
Есть ответ 👍

Перечислите всех условных операторов в pascal

153
446
Посмотреть ответы 3

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

llllllllllllll1
llllllllllllll1
4,7(89 оценок)

ответ:больше >

меньше<

большэили равно >=

меньшэ или равно<=

сравнение pascal=

не равно pascal<>

Объяснение:

ЮлияСалт
ЮлияСалт
4,6(50 оценок)

IF, THEN, ELSE

больше >

меньше <

больше или равно в Pascal >=

меньше либо равно в Pascal <=

сравнение в Pascal =

не равно в Pascal <>

begin

end

Объяснение:

никита3429
никита3429
4,6(74 оценок)

pascal

Объяснение:

program maximum;

var n, i, max: integer;

   x: array of integer;

begin

   Write('Введите размер массива:');

   ReadLn(n);

   SetLength(x,n);

   Randomize();

   max := -15;

   WriteLn('Массив:');

   for i := 0 to n - 1 do

   begin

     x[i] := round(random(41) - 15);

     Write(x[i],', ');

     if (x[i] > max) and (x[i] < 0) then max := x[i];

   end;

   WriteLn();

   WriteLn('Наибольший из отрицательных элементов равен ', max);

end.

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