Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Serfer200
0 / 0 / 0
Регистрация: 19.11.2013
Сообщений: 3
1

В произвольной матрице 7x 9, выбрать числа положительные и отрицательные, подсчитать количество и сумму тех и других

02.12.2013, 18:38. Просмотров 280. Ответов 1
Метки нет (Все метки)

Вот есть задание, по массивам : В произвольной матрице 7x 9, выбрать числа положительные и отрицательные, подсчитать количество и сумму тех и других. Вывести саму матрицу, а также по отдельности ее положительные, и отрицательные элементы. Пробную матрицу сформировать любым способом по своему. Помогите бомжу кто-чем сможет . Заранее спасибо.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2013, 18:38
Ответы с готовыми решениями:

Выбрать положительные и отрицательные числа матрицы, подсчитать количество и сумму тех и других
В произвольной матрице 7 9, выбрать числа положительные и отрицательные, подсчитать количество и...

В произвольной матрице 7х9, выбрать числа положительные и отрицательные
В произвольной матрице 7х9, выбрать числа положительные и отрицательные, подсчитать количество и...

В массиве выделить все четные и нечетные числа, подсчитать количество тех и других
В массиве из N<=10 целых чисел выделить все четные и нечетные числа, подсчитать количество тех и...

В матрице C(N,N) отрицательные элементы заменить их квадратами и подсчитать их количество
В матрице C(N,N) отрицательные элементы заменить их квадратами и подсчитать их количество.

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

1
Lemon256
0 / 0 / 3
Регистрация: 02.12.2013
Сообщений: 26
02.12.2013, 19:01 2
Ну, как бомжу могу помочь только так,
работает, но нуждается в большой доработке. Хотя лучше, чем ничего.
Program z;
var
a:array [1..2,1..2] of integer;
i,j,kolpol,kolotr,sumpol,sumotr:integer;
begin
for i:=1 to 2 do
begin
for j:=1 to 2 do
begin
writeln('Введите элемент матрицы');
read(a[i,j]);
end;
end;
for i:=1 to 2 do
begin
for j:=1 to 2 do
begin
if a[i,j]>0 then
begin
sumpol:=sumpol+a[i,j];
kolpol:=kolpol+1;
end
else if a[i,j]<0 then
begin
sumotr:=sumotr+a[i,j];
kolotr:=kolotr+1;
end;
end;
end;
write('количество положительных = ',kolpol);
write('количество отрицательных = ',kolotr);
write('сумма положительных = ',sumpol);
write('сумма отрицательных = ',sumotr);
for i:=1 to 2 do
begin
for j:=1 to 2 do
begin
writeln(a[i,j]);
end;
end;
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2013, 19:01

Заменить все отрицательные числа в массиве на положительные , а положительные на отрицательные
Существует двумерный массив произвольной размерности . Заменить все отрицательные числа в массиве...

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.