Заполнить массив случайными целыми числами. Заменить элементы массива, равные минимальному, числом 99. Очень надо. Пожалуйста!!!
Заполнить массив случайными целыми числами. Заменить элементы массива, равные минимальному, числом 99. Очень надо. Пожалуйста!!!
Гость
Ответ(ы) на вопрос:
Гостьconst n=10;
var a:array[1..n] of integer;
min,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21);
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do
if a[i]
Не нашли ответ?
Похожие вопросы