Question

Задайте массив из 10 элементов с помощью датчика случайных чисел. все элементы, которые больше 55 замените максимальным

Answer 1

Program prog;
uses crt;

var a: array [1..10] of integer;
    i, max: integer;

begin
clrscr;
randomize;
max:=0;

for i:=1 to 10 do
    begin;
    a[i]:= random(100);
    if a[i]>max then max:=a[i];
    writeln('a[',i,'] = ', a[i]);
    end;

writeln;
    
 for i:=1 to 10 do
    begin;
    if a[i]>55 then a[i]:=max;
    writeln('a[',i,'] = ', a[i]);
    end;
end.