РЕБЯТКИ ПОМОЩЬ СРОЧНО, КТО ПОМОЖЕТ-СВЯТОЙ. ОТБЛАГОДАРЮ СРОЧНО!!!!!! составить программу,...

Question

РЕБЯТКИ ПОМОЩЬ СРОЧНО, КТО ПОМОЖЕТ-СВЯТОЙ.
ОТБЛАГОДАРЮ СРОЧНО!!!!!!

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

Answer 1

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.

Comments

Program1.pas(1) : Неизвестное имя 'n'

---

Элементов должно быть 11

---

Не больше не меньше

---

А не n
Тут как раз вводить ничего не надо
Сам все делает

---

Элементарные вещи уже пора научиться делать!

---

Если элементов должно быть 11, то используется КОНСТАНТА!

---

Конст не проходили еще

---

Константа - это величина, которая не меняется при работе программы. Пишется так: const n=11; Всё элементарно, даже если не проходили (что вряд ли).

---

Спасибо

---

Пожалуйста. Старайтесь хоть что-то делать самостоятельно.