Алгоритмы и программы. Афанасьева Т. В - 119 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

119
Пример 7.9. В одномерном массиве B найти минимальный элемент и
заменить его предпоследним элементом кратным 3, который находится в
массиве А.
program iv55;
var
a,b:array[1..5] of integer;
i:byte;
p,n,ind,flag:integer;
begin
writeln('В одномерном массиве B найти минимальный элемент и');
writeln(' заменить его предпоследним элементом кратным 3 ,’);
writeln(' который находится в массиве А.');
writeln('Измененный массив B вывести на экран .');
write('Ввести эл–ты массива А',' ' ,'Введите эл–
ты массива B',' ', 'Результат');
repeat
flag:=0;
for i:=1 to 5 do
begin
read( a[i]);
if (a[i] mod 3) =0 then {поиск эл–та по условию кратности}
begin
n:=p;
flag:=1;
p:=i;
end;
end;
if flag=0 then
write('В введенном массиве нет эл–тов, кратных 3.');
until flag<>0;
write(' Предпоследний элемент кратный 3 – ', a[n],' ,его номер ',
write( n , {n– номер предпоследнего эл–а} );
ind:=1;
for i:=1 to 5 do
begin
read(b[i]);
if (b[i])<(b[ind]) then {цикл поиска эл–та по условию min}
ind:=i;
end;
write('MIN= ' , b[ind] );
b[ind]:=a[n];
for i:=1 to 5 do writeln(b[i]);
readln;
end.

Страницы