Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
RETUKRAIN
0 / 0 / 0
Регистрация: 15.03.2016
Сообщений: 2
1

Найти минимальную сумму четных положительных элементов, распложенных в нечетных строках матриц (процедуры)

15.03.2016, 13:31. Просмотров 297. Ответов 0
Метки нет (Все метки)

Даны четыре массива A[5,5], B[5,5], C[5,5], D[5,5]. Найти
минимальную сумму четных положительных элементов, распложенных в
нечетных строках массивов, в чем проблема? не могу найти ошибку
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
38
39
40
41
42
43
44
45
46
47
program lab_6_8;
uses crt;
const n=5;
type matrix=array[1..n,1..n] of integer;
var i,j:integer;
min:integer;
a,b,c,d:matrix;
s2,s3,s4,s5:integer;
procedure vvod(mas,i,j:matrix);
begin
for i:= 1 to n do begin
for j:= 1 to n do begin
mas[i,j]:=random(50)-10;
write(mas[i,j]:5);end;
writeln;end;
end;
procedure sum(r,i,j:matrix);
var s:integer;
begin
s:=0;
for i:=1 to n do
for j:=1 to n do
if (not odd(r[i,j])) and (r[i,j]>0)and
(odd(i)) then s:=s+r[i,j];sum:=s;end;
procedure  minimum(var x,y:integer);
var m2:integer;
begin
writeln ('massive a:'); vvod(a);
writeln;
writeln ('massive b:'); vvod(b);
writeln;
writeln ('massive c:'); vvod(c);
writeln;
writeln ('massive d:'); vvod(d);
writeln;end;
begin
if x<y then m2:=y else m2:=x;
minimum:=m;
s2:=sum(a);
s3:=sum(b);
s4:=sum(c);
s5:=sum(d);
s2:=minimum(s2,s3);
s4:=minimum(s4,s5);
s2:=minimun(s2,s4);
writeln(n);
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.03.2016, 13:31
Ответы с готовыми решениями:

Найти сумму всех четных положительных элементов массива, стоящих на нечетных местах
В одномерном массиве А, состоящем из 15 вещественных чисел найти сумму всех четных положительных...

Найти сумму элементов, количество четных и нечетных элементов, а также максимальный элемент в строках матрицы
7 Найти сумму элементов, количество четных и нечетных элементов, а также максимальный элемент в...

найти минимальную сумму элементов в строках двумерного массива
найти минимальную сумму элементов в строках двумерного массива Помогите пожалуйста

Вычислить сумму и количество положительных элементов массива, расположенных в четных строках
Вычислить сумму и кол-во положительных эл-ов массива, расположенных в четных строках.

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

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.03.2016, 13:31

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

В матрице найти сумму отрицательных элементов во всех нечетных строках
Добрый вечер уважаемые программисты! Помогите пожалуйста с задачей:cry: Условие: В матрице А ...

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


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

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

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