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

Даны два двумерных массива целых чисел А[5][5], В[5][5].

05.06.2017, 09:56. Показов 2010. Ответов 1
Метки нет (Все метки)

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

Даны два двумерных массива целых чисел с размерами элементов Подсчитать количество отрицательных элементов в каждом
2 Задание. Даны два двумерных массива целых чисел с размерами (4х5) элементов. Подсчитать...

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

Даны два одномерных массива целых чисел. Сформировать из них два новых по правилу
Помогите пожалуйста с задачей:help: :) Даны два одномерных массива целых чисел (массив А,...

Паскаль. Л7. з1. Даны два одномерных массива целых чисел

1
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
05.06.2017, 10:13 2
Лучший ответ Сообщение было отмечено 12sveta как решение

Решение

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
const n=5;
type mas=array[1..n,1..n] of integer;
function sum(a:mas):integer;
var s,i:integer;
begin
s:=a[1,1];
for i:=2 to n do
s:=s+a[i,i];
sum:=s;
end;
var a,b:mas;
    i,j,sa,sb:integer;
begin
randomize;
writeln('Массив А');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:3);
   end;
  writeln;
 end;
sa:=sum(a);
writeln('Сумма элементов главной диагонали=',sa);
writeln;
writeln('Массив B');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=random(20);
    write(b[i,j]:3);
   end;
  writeln;
 end;
sb:=sum(b);
writeln('Сумма элементов главной диагонали=',sb);
writeln;
if sa=sb then write('Суммы равны')
else if sa>sb then write('В массиве А сумма больше')
else write('В массиве B сумма больше')
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2017, 10:13
Помогаю со студенческими работами здесь

Даны два двумерных массива из 12 строк и 28 столбцов
Даны два двумерных массива из 12 строк и 28 столбцов. В первом из них записана температура воздуха...

Даны два массива из n целых чисел каждый. Определить, в каком из них больше положительных элементов.
Даны два массива из n целых чисел каждый. Определить, в каком из них больше положительных...

Даны два двумерных символьных массива. Заменить символы
Даны два двумерных символьных массива размером nxn и mxm. В первом массиве заменить символы "+"...

Даны два двумерных числовых массива А и В размерности n. Заполнить массив С=А*В
Ребят, помогите решить задачу, не совсем понимаю как с массивами работать в паскале, Даны два...


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

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

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