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

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 3

Вот пример решения вашей задачи на языке Паскаль:

pascalCopy code
program MaxElementCount;

const
  N = 30;

var
  arr: array[1..N] of Integer;
  i, max, count: Integer;

begin
  Randomize;

  // Заполняем массив случайными числами
  for i := 1 to N do
    arr[i] := Random(100); // Генерируем случайное число от 0 до 99

  // Выводим массив на экран
  writeln('Массив:');
  for i := 1 to N do
    write(arr[i], ' ');

  // Находим максимальный элемент в массиве
  max := arr[1];
  for i := 2 to N do
  begin
    if arr[i] > max then
      max := arr[i];
  end;

  // Подсчитываем количество элементов больше максимального
  count := 0;
  for i := 1 to N do
  begin
    if arr[i] > max then
      count := count + 1;
  end;

  writeln;
  writeln('Количество элементов больше максимального:', count);

  readln;
end.

В этом примере мы используем циклы для заполнения массива случайными числами, вывода массива на экран, поиска максимального элемента и подсчета количества элементов, которые больше максимального значения.