Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Напишите программу, которая подсчитывает количество элементов массива равных макс. среди двухзначных чисел. Если ни одного такого числа нет, нужно вывести сообщение об этом.

Answer 1

var
  i,n,max:integer;
  a:array[1..30]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 30 do
  begin
  a[i]:=random(0,1000);
  writeln(a[i]);
  if (a[i]>9) and (a[i]<100) then
     begin
     if max=0 then max:=a[i];
     if a[i]>max then max:=a[i];
     end;
  end;
for i:=1 to 30 do
  if a[i]=max then n:=n+1;
if max>0 then writeln('n=',n)
  else writeln('Таких нет');
end.