Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

РЕБЯТКИ ПОМОЩЬ СРОЧНО, КТО ПОМОЖЕТ-СВЯТОЙ.
ОТБЛАГОДАРЮ СРОЧНО!!!!!!
составить программу, которая заполняет 11 элементов одномерного массива случайным образом, вычисляет их сумму, определяет min элемент в массиве

Ответ оставил Гость

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] s:=s+x[i]
 end;
writeln(s = ,s:5,   min=,min);
end.