40 / 40 / 0
Регистрация: 07.02.2012
Сообщений: 63
1

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

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

Даны два массива вещественных чисел. Сформировать третий массив, каждый элемент которого является суммой соответствующих элементов исходного массива. Определить, в каком из трех массивов количество положительных элементов больше.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2012, 11:25
Ответы с готовыми решениями:

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

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

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

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

2
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.06.2012, 11:37 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.
2
3026 / 1912 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
11.06.2012, 11:49 3
Лучший ответ Сообщение было отмечено как решение

Решение

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
27
28
29
30
31
32
33
34
35
36
37
Uses crt;
Var
x,y,z: Array[1..100] of Real;
i,n,k1,k2,k3: Integer;
BEGIN
Clrscr;
Randomize;
Writeln('Кол-во элементов в массивах: '); Readln(n);
For i:=1 to n do
begin
  x[i]:=10*Random-3;
  y[i]:=10*Random-3;
  z[i]:=x[i]+y[i];
end;
Writeln('Массив 1: ');
For i:=1 to n do
Write(x[i]:8:2);
Writeln;
Writeln('Массив 2: ');
For i:=1 to n do
Write(y[i]:8:2);
Writeln;
Writeln('Массив 3: ');
For i:=1 to n do
Write(z[i]:8:2);
Writeln;
For i:=1 to n do
begin
  If x[i]>0 Then Inc(k1);
  If y[i]>0 Then Inc(k2);
  If z[i]>0 Then Inc(k3);
end;
If (k1>k2) and (k1>k3) Then Writeln('В 1 массиве больше положительных элементов');
If (k2>k1) and (k2>k3) Then Writeln('Во 2 массиве больше положительных элементов');
If (k3>k1) and (k3>k2) Then Writeln('В 3 массиве больше положительных элементов');
Readln
END.
Добавлено через 20 секунд
Не успел...
3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.06.2012, 11:49
Помогаю со студенческими работами здесь

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

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

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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