Предмет: Информатика,
автор: kairak01
Pascal. Заменить 8-ой элемент одномерного массива на минимальное значение его элементов.
Ответы
Автор ответа:
1
program raf105;
var i,b,min:integer;
a:array[1..10] of integer;
begin
writeln('Вводите 10 чисел по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (i=1) or (a[i]<min)
then min:= a[i];
end;
a[8]:= min;
writeln('Вывод:');
for i:=1 to 10 do
writeln('[',i,'] ',a[i]);
end.
Язык программирования PascalABC
Автор ответа:
0
Язык програмирования PASCALABC
Похожие вопросы
Предмет: Қазақ тiлi,
автор: Maomao23
Предмет: Алгебра,
автор: elorus
Предмет: Русский язык,
автор: kalkataevamadina
Предмет: Алгебра,
автор: тигру