Дан массив из 30 целых чисел (заполнить случайными числами). Вывести массив ** экран....

Question

Дан массив из 30 целых чисел (заполнить случайными числами). Вывести массив на экран. Подсчитать сколько элементов больше максимального. Паскаль

Comments

Каким. Образом. Элемент. Может. Быть. Больше. Максимального.

---

Если элемент максимальный, значит больше его просто напросто нет.

---

не было в условии, пусть будет 50

---

Случайные числа из какого промежутка?

---

максимум 30 (граница массива)

---

Тогда и смысла задания нет

Answer 1

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

k,i:integer;

BEGIN

k:=0;

for i:=1 to 30 do begin

a[i]:=Random(50)+1;

write(a[i],' ');

if a[i]>30 then k:=k+1;

end;

writeln();

writeln(k);

end.

Comments

спасибо

Answer 2

Program n_1;

var a: array [1..30] of integer; i, n: integer;

begin

   randomize;

   n:=0;

   for i:=1 to 30 do begin a[i]:=random(10000); write(a[i], ' '); end;

   writeln;

   for i:=1 to 30 do if a[i]>a[30] then n:=n+1;

   writeln(n);

end.

Ну диапазон если что сами можете подредактировать :D

Comments

Секундочку

---

просто разделял некоторые строки для большей понятности. А так source.pas(7,2) Fatal: illegal character "'�'" ($C2)Error: /usr/bin/ppcx64 returned an error exitcode

---

Ну не знаю... можно с этой строчкой поиграться: заново вручную переписать, к writeln скобочки добавить. Для справки: данная ошибка означает, что компилятор просто нашел неизвестный для него символ. Может быть где-то символ из кириллицы закрался.

---

все равно спасибо)

---

и какие там неизвестные символы...

---

просто переносит вывод на следующую строчку

---

Error(s):source.pas(12,2) Fatal: illegal character "'�'" ($C2)Error: /usr/bin/ppcx64 returned an error exitcode

---

Понятно. Ну тогда сейчас подумаю (у меня все работает).в 7 строке находится writeln;

---

У меня в программе 10 строк, как в 12 ошибка

---

Ну ладно