Регистрация
Шнуров
14.05.2020 00:16
Информатика
Есть ответ 👍

напишите программу которая находит в массиве количество элементов равных максимальному ПАСКАЛЬ. ​

293
312
Посмотреть ответы 3

Ответы на вопрос:

sashashola
sashashola
4,8(34 оценок)

program ghh;

var i, j, k: Integer;

ma: array[1..20] of integer;

begin

j:=0;

k:=0;

for i:=1 to 20 do

begin

ma[i]:= random(10);

if ma[i] > j then

j:= ma[i]

end;

for i:=1 to 20 do

begin

if ma[i] = j then

k:= k + 1;

end;

WriteLn(k)

end.

0674167692
0674167692
4,5(46 оценок)

var

a:array[1..100] of integer;

max,i,n:integer;

begin

Randomize;

 for i:=1 to 100 do

  begin

   a[i]:=random(100);

   write(a[i],' ');

  end;

  max:=1;

   for i:=2 to 100 do

    begin

     if a[i]>max then

       max:=a[i];  

    end;

     

        for i:=1 to 100 do

    begin

     if a[i]=max then

       n:=n+1;

    end;

   writeln(' ');

   write(n,' Количество элементов массива равных максимальному')

   

end.

Объяснение:

Ksenka3515
Ksenka3515
4,5(52 оценок)

16 гбайт= 16*1024 мбайт=16384 мб.

16384/240=68,27 штук, те полных 68 клипов.

Популярно: Информатика