Создать два массива одинаковой размерности. Получить третий массив такой же размерности, каждый элемент которого равен сумме соответствующих элементов
10-11 класс
|
данных массивов....Напишите на паскале пожалуйста...
uses crt;
var a,b,c:array[1..100] of integer;
i,n:integer;
begin
writeln('Размер массивов?');
read(n);
writeln('Элементы 1-го массива?');
for i:=1 to n do
read(a[i]);
writeln('Элементы 2-го массива?');
for i:=1 to n do
read(b[i]);
for i:=1 to n do
begin
c[i]:=a[i]+b[i];
write(c[i],' ');
end;
end.
Другие вопросы из категории
(укажите несколько вариантов ответа)
1) WINDOWS 2000
2) WINDOWS ME
3) WINDOWS 95/98
4) WINDOWSNT
5) WINDOWS XP
Читайте также
сформулируйте массив содержащий 15 элементов, с помощью датчика случайных чисел. получите новый массив, каждый элемент которого равен квадрату соответствующего элемента исходного массива. в полученном массиве определите насколько максимальный элемент исходного массива отличается от минимального элемента нового массива. выведите на экран исходные и полученные результаты
соответствующего элемента исходного массива. в полученном массиве определите насколько максимальный элемент исходного массива отличается от минимального элемента нового массива. выведите на экран исходные и полученные результаты
стоящих на четных местах. Вывести на экран эти элементы и их произведение.
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .