написать программу в pascal:

заменить последний элемент массива минимальным (размерность массива=10)

Question

Информатика

Моря

6 марта, 04:03

написать программу в pascal:

заменить последний элемент массива минимальным (размерность массива=10)

+1

Ответы (1)

Знаете ответ на вопрос?

Изосим · Answer 1

Var

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:=mas[i];

mas[10]:=min;

for i:=1 to 10 do

write (mas[i],' ') ;

end.

написать программу в pascal:заменить последний элемент массива минимальным (размерность массива=10)

написать программу в pascal:

заменить последний элемент массива минимальным (размерность массива=10)