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

В массиве B(n), найти сумму всех положительных и произведение всех отрицательных элементов.

24.11.2011, 11:53. Показов 6856. Ответов 10
Метки нет (Все метки)

В массиве B(n), найти сумму всех положительных и произведение всех отрицательных элементов. Результат вывести на экран. 2) Дан массив чисел. Все элементы массива, начиная с первого положительног, уменшить на 0,5. 3) Дана целочисленная матрица размерностью n на m. Найти матрицу, получающуюся из данной:
А) перестановкой столбцов - первого с последним, второго с предпоследним и т.д.;
Б) перестановкой строк - первой с последней, второй с предпоследней и т.д.;
4) Дана квадратная матрица n на n, состоящая из натуральных чисел. Повернуть её на 180 градусов и вывести разультат на экран.

Если зделаете буду вам очень признателен.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2011, 11:53
Ответы с готовыми решениями:

Найти сумму всех положительных и произведение всех отрицательных элементов матрицы
Заданна матрица (двумерный массив) A размером N*M, состоящая из действительных элементов. Числа N и...

Найти сумму всех положительных и произведение всех отрицательных элементов двумерного массива
задачка №1. найти сумму всех положительных и произведение всех отрицательных элементов двумерного...

В двухмерном массиве вычислить частное от деления произведения всех положительных элементов на произведение всех отрицательных элементов
В двухмерном массиве вычислить частное от деления произведения всех положительных элементов на...

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

10
43 / 43 / 14
Регистрация: 16.11.2011
Сообщений: 125
24.11.2011, 12:21 2
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Правила прочитай, нельзя в одну тему несколько вопросов пихать.
1.
Delphi
1
2
3
4
5
6
7
sum:=0;
proiz:=1;
for i:=1 to n do
begin
if a[i]>0 then sum:=sum+a[i];
if a[i]<0 then proiz:=proiz*a[i];
end;
Добавлено через 2 минуты
2.
Delphi
1
2
3
4
5
6
isis:=false;
for i:=1 to N do
begin
if a[i]>0 then isis:=true;
if isis then a[i]:=a[i]-0.5
end;
Добавлено через 3 минуты
3.
Delphi
1
2
3
4
5
for i:=1 to N do
b[i,1]:=a[N-i,1];
_____________________
for i:=1 to N do
b[1,i]:=a[1, N-i];
Добавлено через 1 минуту
4.
Убрать разделитель в задании 3
1
0 / 0 / 0
Регистрация: 04.10.2011
Сообщений: 29
24.11.2011, 12:28  [ТС] 3
Не работают
0
43 / 43 / 14
Регистрация: 16.11.2011
Сообщений: 125
24.11.2011, 12:30 4
Конечно не работают, пременные то не описаны.
Просто скопировать и скомпилировать у вас не получиться, хотя бы попытались бы понять суть алгоритма для начала
1
0 / 0 / 0
Регистрация: 04.10.2011
Сообщений: 29
24.11.2011, 12:32  [ТС] 5
Я в прагромирование не в зуб ногой. Програма работает но не правильно как то
0
43 / 43 / 14
Регистрация: 16.11.2011
Сообщений: 125
24.11.2011, 12:48 6
ладно, добавьте вначале каждой программы код
Delphi
1
2
3
4
5
const N=5 //Число элементов в массиве по i
const M=5 //Число элементов в массиве по j
var sum, proiz,i : integer
isis:boolean;
a : array [1..N] of integer;
во второй программе a: array[1..N] of real;
в третьей a: array[1..N, 1..M] of integer;
в четвертой a: array[1..N, 1..N] of integer;
В конце каждой программы добавьте end.
1
0 / 0 / 0
Регистрация: 04.10.2011
Сообщений: 29
24.11.2011, 13:38  [ТС] 7
А это вообще на паскале?
0
43 / 43 / 14
Регистрация: 16.11.2011
Сообщений: 125
24.11.2011, 13:43 8
Нет млин, на ассемблере
1
1 / 1 / 0
Регистрация: 06.10.2011
Сообщений: 35
24.11.2011, 14:37 9
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var s:array [1..100] of integer;
n,i,o,p:integer;
begin
writeln ('ввести кол-во символов');
readln (n);
for i:=1 to n do
begin
readln (s[i]);
if s[i]>=0 then o:=ots[i]
             else p:=pts[i];
end;
writeln (o,p);
readln;
end.
1
43 / 43 / 14
Регистрация: 16.11.2011
Сообщений: 125
25.11.2011, 09:01 10
Есть несколько вопросов к Sanya383:
1. Решением какой задачи является ваша программа? Я так думаю что первой.
2. Нахрена там модуль crt
3. Что означают o:=ots[i], p:=pts[i]
1
0 / 0 / 0
Регистрация: 04.10.2011
Сообщений: 29
25.11.2011, 12:41  [ТС] 11
Да эта программа не правильная Саня
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.11.2011, 12:41
Помогаю со студенческими работами здесь

Найти сумму всех положительных, сумму всех отрицательных элементов матрицы
ребят, могли бы выручить еще с одной задачей. Для массива N (5;5) найти сумму всех...

Найти сумму всех положительных и произведение всех отрицательных элементов матрицы
Задав матрицу А (REAL) размером N x N (N&lt;=10), найти сумму всех ее положительных и произведение...

Найти произведение всех положительных и сумму всех отрицательных элементов массива
Всем привет. Помогите пожалуйста я не понимаю как сделать задания Дан двумерный вещественный...

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

Найти сумму всех отрицательных, и произведение всех положительных элементов матрицы
Дана вещественная матрица размерности n*m. Найти сумму всех ее отрицательных и произведение всех ее...

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


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

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

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