Задайте массив из 10 элементов с помощью датчика случайных чисел. все элементы, которые больше 55 замените максимальным
Задайте массив из 10 элементов с помощью датчика случайных чисел. все элементы, которые больше 55 замените максимальным
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы