Регистрация
Tosya111
27.07.2022 08:11
Информатика
Есть ответ 👍

Кто -святой. составить программу, которая заполняет 11 элементов одномерного массива случайным образом, вычисляет их сумму, определяет min элемент в массиве

245
317
Посмотреть ответы 2

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

Murat20061
Murat20061
4,7(27 оценок)
Var x : array[1..11] of integer;     n,s,i,min : integer; begin randomize; n: =11; writeln('сгенерированный массив: '); for i: =1 to n do   begin   x[i]: =random(21)-10;   write(x[i],' '); end; writeln;   s: =0; min: =x[1]; for i: =1 to n do   begin   if x[i]< min then min: =x[i];   s: =s+x[i]   end; writeln('s = ',s: 5,'   min=',min); end.
annzhoravel461
annzhoravel461
4,7(74 оценок)

Объяснение:

Program a1;

uses crt;

var i,x,y:integer;

begin

     clrscr;

     for i:=1 to 4 do begin

           write('vvedite chislo: ');

           readln(x);

           y:=exp(5*ln(x))

           write('chislo x v 5 stepeni ravno', y);

     end;

     readln;

end.

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