Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal В массиве С[1.12] найти произведение чисел, меньших или равных 10 https://www.cyberforum.ru/ pascal/ thread789691.html
В массиве С найти произведение чисел, меньших или равных 10
Pascal В одномерном массиве найти количество четных и нечетных элементов
В одномерном массиве найти количество четных и нечетных элементов.
Pascal в массиве С (1.15) найти сумму чисел, расположенных на местах кратрных 3 https://www.cyberforum.ru/ pascal/ thread789651.html
в массиве С (1..15) найти сумму чисел, расположенных на местах кратрных 3
Pascal Найти сумму элементов массива целых чисел C(1.12), удовлетворяющих условию:остаток от деления элемента на 2 равен 3 Найти сумму элементов массива целых чисел C(1..12), удовлетворяющих условию:остаток от деления элемента на 2 равен 3 https://www.cyberforum.ru/ pascal/ thread789648.html
Дан массив натуральных чисел. Определить, есть ли в нем идущие подряд одинаковые числа Pascal
дан массив натуральных чисел .Определить , есть ли в нем : а) два подряд идущих одинаковых числа б) три подряд идуших одинаковых числа в) k подряд идущих одинаковых чисел.
Pascal Найти корень уравнения методом дихотомии. https://www.cyberforum.ru/ pascal/ thread789499.html
вычислить корень уравнения на отрезке с точностью 0,001 Методом Дихотомии (половинного деления) y=cos (x)-x
Pascal Процедура стрельбы в игре Помогите пожалуйста написать процедуру "интелектуальной" стрельбы для морского боя. Под словом "интелектуальной" предразумевается при попадании простреливать соседние клетки, а после уничтожения корабля не стрелять вокруг него. https://www.cyberforum.ru/ pascal/ thread789308.html Определить количество элементов, больших среднего арифметического всех элементов Pascal
определить количество элементов больших среднего арифметического всех элементов const maxN = 100; type massiv = array of integer; procedure zapros(var a: massiv; var n: integer); var
Pascal Найти строку массива с максимальным средним геометрическим нечетных элементов Анализ задания, блок схема, программа. ср Ввести массив строк разной длины, состоящих из цифр. Найти строку, с максимальным средним геометрическим нечетных элементов. Очень срочно :) https://www.cyberforum.ru/ pascal/ thread789058.html Pascal написать модуль :Вариант 6) для работы с многочленами от двух переменных (до 10-й степени). Должны быть реализованы операции: сложения, вычитания, умн Вариант 6) для работы с многочленами от двух переменных (до 10-й степени). Должны быть реализованы операции: сложения, вычитания, умножения, деления, возведения в степень, вычисления значения при конкретных значениях переменных, ввода и вывода информации. https://www.cyberforum.ru/ pascal/ thread789032.html
Pascal Вывести числа по образцу. Вложенные циклы
народ плиз помогите написать программку с использованием вложенных цыклов в паскале! нужно чтоб выводились числа вот таким образом - 666666 44444 7777 555 88 6 зарание спасибо
Pascal Текстовой документ Всем привет! Program texta_apstrade; Uses crt; var f1:text; st:string; i:integer; n:byte; begin https://www.cyberforum.ru/ pascal/ thread788546.html
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
19.02.2013, 07:50 0

Даны два массива: А(10) и В(10) образуйте массив С, состоящий из сумм соответствующих элементов массива А и В - Pascal - Ответ 4152047

19.02.2013, 07:50. Показов 4330. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Игорь2196 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
const
  n=10;
type
  tAr=array[1..n] of integer;
var
  a,b,c: tAr;
  i: byte;
begin
  randomize;
  for i:=1 to n do
  begin
    a[i]:=random(9)+1;
    b[i]:=random(9)+1;
    c[i]:=a[i]+b[i];
  end;
  writeln('Массив A:');
  for i:=1 to n do write(a[i]:4);
  writeln;
  writeln('Массив B:');
  for i:=1 to n do write(b[i]:4);
  writeln;
  writeln('Массив C:');
  for i:=1 to n do write(c[i]:4);
  writeln;
  readln
end.


Вернуться к обсуждению:
Даны два массива: А(10) и В(10) образуйте массив С, состоящий из сумм соответствующих элементов массива А и В Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.02.2013, 07:50
Готовые ответы и решения:

Даны два массива. Сформируйте массив С, состоящий из общих элементов массива А и В
Даны два массива: массив А из n элементов и массив В из m элементов. Сформируйте массив С,...

Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В, состоящий из m элементов),
Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В, состоящий из...

Массив: Образуйте массив B, состоящий из положительных элементов заданного массива A(N), больших пяти.
Образуйте массив B, состоящий из положительных элементов заданного массива A(N), больших пяти....

Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В – из m элементов), заполненных с
n= 22, m= 16, L= -50, P=30; Массив С состоит из элементов исходных массивов, меньших первого...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.02.2013, 07:50
Помогаю со студенческими работами здесь

Образуйте массив B, состоящий из положительных элементов заданного массива A(N), больших пяти
Здрасте ! Пмогите плиззз!Образуйте массив B, состоящий из положительных элементов заданного массива...

Образуйте массив B, состоящий из положительных элементов заданного массива A(N), больших пяти
Образуйте массив B, состоящий из положительных элементов заданного массива A(N), больших пяти....

Образуйте массив B, состоящий из положительных элементов заданного массива A(N), больших пяти
Помогите составить код программы Visual C# для задания: Образуйте массив B, состоящий из...

Образуйте массив B, состоящий из положительных элементов заданного массива A(N), больших пяти
Образуйте массив B, состоящий из положительных элементов заданного массива A(N), больших пяти....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru