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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
