Дан массив целых чисел А(10). Элементы с нечетным индексом заменить минимальным элементом
const n = 10;
var
a: array[1..n] of integer;
i, min: integer;
begin
min := 20;
for i := 1 to n do begin
a[i] := random(20);
if(a[i] < min) then min := a[i];
write(a[i], );
end;
writeln; writeln(Минимальный эл. массива: , min);
for i := 1 to n do begin
if(i mod 2 <> 0) then a[i] := min;
write(a[i], );
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
