написать программу в pascal:
заменить последний элемент массива минимальным(размерность массива=10)
написать программу в pascal:
заменить последний элемент массива минимальным(размерность массива=10)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
mas:array[1..100] of integer;
min,i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
min:=mas[1];
for i:=2 to 10 do
if mas[i]<min then
min:=mas[i];
mas[10]:=min;
for i:=1 to 10 do
write(mas[i],' ');
end.