Даны два массива A(N) и B(N), где N<=15. Найти номер 1-ого нуля массива А и составить массив С(N), где каждый элемент массива С[i]= min(A[i],B[i])
10-11 класс
|
до найденного номера. Вывести на печать номер нуля, массива С и сообщение, если нуль не найден.
написать программу в Паскале.
спасибо
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.
Другие вопросы из категории
предыдущего дня. Определить пробег лыжника за второй, третий, …, десятый день.
Читайте также
элементы, а из массива В -нечетные по значению.Выведите на экран массивы А,В,С.
2.Информация о площадях и средней урожайности хранится в массиве,где каждый элемент с четным индексом - засеянная площадь, а с нечетным - урожайность.Определите и выведите на экран кол-во собранной пшеницы и среднюю урожайность.
Помогите пожалуйста!
Объединить два массива в один массив с чередованием элементов исходных
массивов. Вывести новый массив.
паскаль.
лементов. Результат распечатать в виде:
Сумма наибольших=
Сумма наименьших=
№2
Даны два массива по 30 элементов. Найти среднее арифмитическое для элементов 1-го массива,номера которых больше номера минимального элемента 2-го массива
Заранее спасибо
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.