Question

СРОЧНО ПОМОГИТЕ, 20 БАЛЛОВ ДАЮ, НАПИШИТЕ ЭТО НА ЯЗЫКЕ ПАСКАЛЬ АБС

Answer 1

uses

SysUtils;

var

elki, elkiOverSize: array[1..50] of Integer;

i,j: Integer;

begin

randomize();

j:=0;

for i := 1 to 50 do

begin

 elki[i] := random(170-45+1)+45;

 if elki[i] = 160 then

 begin

  elkiOverSize[j] := i;

  inc(j);

 end;

end;

write('Оригинальный массив: ');

for i := 1 to 50 do

begin

 write(IntToStr(elki[i])+' ');

end;

writeln();

writeln();

write('Индексы ёлок равных 160: ');

for i := 1 to 50 do

begin

 if elkiOverSize[i] <> 0 then

  write(IntToStr(elkiOverSize[i])+' ');

end;

writeln();

end.