Даны два массива A(N) и B(N), где N<=15. Найти номер 1-ого нуля массива А и составить массив С(N), где каждый элемент массива С[i]= min(A[i],B[i]) до найденного номера. Вывести на печать номер нуля, массива С и сообщение, если нуль не найден.

написать программу в Паскале.

спасибо

1

Ответы и объяснения

2013-12-15T18:52:36+00:00
Uses crt;
var n,nullindex,i:integer;
a,b,c:array[1..15] of integer;
begin
writeln('N?');
read(n);
writeln('Введите элементы 1-го и 2-го массива.');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
read(b[i]);
nullindex:=0;
for i:=1 to n do
if a[i]<>0 then
c[i]:=min(a[i],b[i])
else
begin
nullindex:=i;
break;
end;
if nullindex=0 then
writeln('Элемент не найден.')
else
begin
writeln(nullindex);
for i:=1 to nullindex-1 do
write(c[i],' ');
end;
end.