Question

ДАЮ 50 БАЛЛОВ, ПАСКАЛЬ Дан целочисленный массив А(30) Найти количество элементов, больших первого элемента *Пожалуйста, напишите полностью программу

Answer 1

Ответ:

program k;

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

i,k:integer;

begin

k:=0;

for i:=1 to 30 do

begin

m[i]:=random(10);

write(m[i],' ');

if m[i]>m[1] then k:=k+1

end;

writeln;

write(k)

end.

Answer 2

Конечно, вот программа на языке Pascal, которая находит количество элементов в массиве A(30), которые больше первого элемента:

pascalCopy code
program CountGreaterThanFirstElement;
var
  A: array[1..30] of Integer; // Объявляем массив из 30 целых чисел
  FirstElement, Count, i: Integer;
begin
  // Вводим элементы массива
  writeln('Введите элементы массива A(30):');
  for i := 1 to 30 do
  begin
    write('A[', i, '] = ');
    readln(A[i]);
  end;

  // Присваиваем первому элементу значение A[1]
  FirstElement := A[1];

  // Инициализируем счетчик нулем
  Count := 0;

  // Перебираем элементы массива и увеличиваем счетчик, если элемент больше FirstElement
  for i := 2 to 30 do // Начинаем с 2, так как первый элемент уже учтен
  begin
    if A[i] > FirstElement then
      Inc(Count);
  end;

  // Выводим результат
  writeln('Количество элементов, больших первого элемента (', FirstElement, '): ', Count);

  readln;
end.

Программа сначала запрашивает у пользователя 30 элементов массива A, а затем сравнивает каждый элемент с первым и увеличивает счетчик, если элемент больше первого. Результат выводится на экран.