Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Создание игры «Угадай число» https://www.cyberforum.ru/ turbo-pascal/ thread602573.html
Программа, реализует следующую игру: компьютер, задумывает число от 0 до 1000, игрок пытается его отгадать за 10 вопросов вида: верно ли, что задуманное число больше такого-то числа. После каждой...
Turbo Pascal Отсортировать отрицательные элементы массива методом простого включения
Народ, срочно надо! Отсортировать отрицательные элементы массива методом простого включения. Заранее благодарен. Добавлено через 5 минут Сам решил, не пойду, где ошибка. uses crt; const...
Turbo Pascal Вычислить: 1/sin(x)+1/sin(2x)+ ... +1/sin(nx); https://www.cyberforum.ru/ turbo-pascal/ thread602539.html
n - натуральное. x - действительное. Вычислить: 1/sin(x)+1/sin(2x)+ ... +1/sin(nx);
Turbo Pascal Вычислить сумму элементов последовательности даны натуральное число n, действительное число а. Напечатать последовательность чисел: cos(a), cos(cos(a)), cos(cos(cos(a))), ... , cos ( ... ( cos(a)...); n раз. Добавлено через 1 час 35 минут... https://www.cyberforum.ru/ turbo-pascal/ thread602526.html
Вычислить значение выражения Turbo Pascal
Вычислить значение величины, содержащей несколько однотипных сумм. Для вычисления сумм написать функцию пользователя....
Turbo Pascal Вычисление количества различных точек пересечения двух прямых https://www.cyberforum.ru/ turbo-pascal/ thread602479.html
Помогите написать программу для вычисления количества различных точек пересечения каждых двух прямых из множества n (n<=10) {n меньше либо равно 10} прямых на плоскости. Подготовить использовать...
Turbo Pascal Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски Нарисовать на экране составной статический объект, состоящий из деталей различной раскраски: дерево (ствол, ветки) и автомобиль (колеса, корпус); Объект разместить в графическом окне вдвое меньше... https://www.cyberforum.ru/ turbo-pascal/ thread602438.html Turbo Pascal Подсчитать количество элементов матриц, удовлетворяющих заданным условиям. С использованием процедуры
Выполнить программу, использующую подпрограмму - процедуру Подсчитать количество элементов матриц X(10,15) и Y(20,12), удовлетворяющих условиям 0<=xij<=1 и 0<=yij<=1. Надеюсь на помощь, заранее...
Turbo Pascal Процедура. Отсортировать массив методом выделения минимального элемента в порядке возрастания https://www.cyberforum.ru/ turbo-pascal/ thread602385.html
Дан массив латинских букв А . Отсортировать их методом выделения минимального элемента в порядке возрастания. Вычислить среднее арифметическое наименьшего и наибольшего кодов элементов. Сортировку...
Turbo Pascal Изменить программу Помогите изменить программу, чтобы получить фрактал на прикреплённом рисунке. Формула рисунка - ch(z) -гиперболический косинус. Формула гиперболического косинуса ch(z)=(e^z+e^-z)/2. Я выделил... https://www.cyberforum.ru/ turbo-pascal/ thread602368.html
Определить размер квартплаты в корпоративном доме Turbo Pascal
Подскажите пожалуйста с чего начать.Как она примерно делается? По просьбе ТС картинка оставлена :)
Turbo Pascal Найти общее число осадков, выпавших по четным числам месяца https://www.cyberforum.ru/ turbo-pascal/ thread602341.html
Привет. Друзья, помогите с задачкой. Известны данные о количестве осадков выпавших за каждый день февраля. Найти общее число осадков, выпавших по четным числам месяца Заранее всем спасибо.!!!
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.06.2012, 11:37 0

Даны два массива. Сформировать третий массив, каждый элемент которого - сумма элементов исходных - Turbo Pascal - Ответ 3151533

11.06.2012, 11:37. Показов 5243. Ответов 2
Метки (Все метки)

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

Решение

без учета возможности, что количество положительных может быть равно (если надо - намекни=))
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
const n=19;
var a,b,c: array [1..n] of real;
    i,kpa,kpb,kpc: byte;
begin
writeln('массив А    массив B    массив С');
writeln('--------------------------------');
for i:=1 to n do
    begin
    a[i]:=199*random-99;
    b[i]:=199*random-99;
    c[i]:=a[i]+b[i];
    writeln(a[i]:7:2,b[i]:12:2,c[i]:12:2);
    if a[i]>0 then inc(kpa);
    if b[i]>0 then inc(kpb);
    if c[i]>0 then inc(kpc);
    end;
writeln('Количество положительных');
writeln(kpa:5,kpb:12,kpc:12);
if (kpa>kpb) and (kpa>kpc) then write('больше в первом') else
   if kpb>kpc then write('больше во втором') else write('больше в третьем');
readln;
end.


Вернуться к обсуждению:
Даны два массива. Сформировать третий массив, каждый элемент которого - сумма элементов исходных Turbo Pascal
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2012, 11:37
Готовые ответы и решения:

Получить третий массив, каждый элемент которого равен сумме соответствующих элементов исходных массивов, умноженной на больший из них
Даны два одномерных массива одинаковой длины. Получить третий массив такой же размерности, каждый...

Сформировать третий массив, элементы которого получаются сложением соответствующих элементов исходных
Даны два массива Ak и Bk размера N. Сформировать третий массив Ck, элементы которого получаются...

Получить третий массив той же размерности, каждый элемент которого равен большему из соответствующих элементов данного массива.
Помогите,пожалуйста,решить!Очень нужно! Пожалуйста! Даны два целочисленных массива, состоящих...

Сформировать массив, каждый элемент которого является макс. элементом соответственно в каждом из 3 исходных
Произвольно заданы три одномерных массива с одинаковым числом элементов. Сформировать массив,...

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

Сформировать третий массив из отрицательных элементов массива одного из исходных
Даны два массива вещественных чисел. сформировать третий массив в который включить отрицательные...

Даны 2 массива. Получить 3 массив, каждый элемент которого равен сумме соотвестветствующих элементов исходных
2) Даны 2 одномерных массива одинаковой длины.Получить 3 массива такой же размерности,каждый...

Сформировать одномерный массив, каждый элемент которого равен сумме положительных элементов в соответствующем столбце двухмерного массива
Дан двухмерный массив целых чисел. Сформировать одномерный массив, каждый элемент которого равен...

Сформировать новый массив C того же размера,каждый элемент которого равен максимальному из элементов массива A и B с тем же индексом.
Даны два массива A и B одинакового размера N.Сформировать новый массив C того же размера,каждый...

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