Question

Дан массив из 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.

Answer 2

спасибо

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

Ну ладно