Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
pro-x
0 / 0 / 0
Регистрация: 20.10.2010
Сообщений: 43
1

Дан двумерный массив размерностью 5*5. Вычислить сумму элементов, номер столбца которых нечетный.

20.10.2010, 17:26. Просмотров 874. Ответов 1
Метки нет (Все метки)

Дан двумерный массив размерностью 5*5. Вычислить сумму элементов, номер столбца которых нечетный.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.10.2010, 17:26
Ответы с готовыми решениями:

Дан двумерный массив размерностью 5х5. Вычислить сумму элементов, номер столбца которых нечетный.
Дан двумерный массив размерностью 5х5. Вычислить сумму элементов, номер столбца...

Дан двумерный массив размерностью 5х5. Вычислить сумму элементов, номера строк у которых четные
Дан двумерный массив размерностью 5х5. Вычислить сумму элементов, номера строк...

Вычислить сумму элементов, номер столбца которых нечетный
21. Дан двумерный массив размерностью 5*5. Вычислить сумму элементов, номер...

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

Вычеслить сумму элементов, номер столбца которых нечетный
Дан двумерный массив размерностью 5*5. Вычислить сумму элементов, номер столбца...

1
denisneposeda
46 / 46 / 36
Регистрация: 18.10.2010
Сообщений: 212
20.10.2010, 17:44 2
Лучший ответ Сообщение было отмечено pro-x как решение

Решение

pro-x, все считает...только где четные номера, выбрасывает нули:

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
uses crt;
const
n=5;
m=5;
var a:array[1..1000,1..1000] of integer;
    i,j,s,k,x:integer;
begin
clrscr;
{Г§Г*ГЎГЁГўГ*ГҐГ¬ Г¬Г*Г±Г±ГЁГў}
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(41)-19;
{âûâîä èñõîäГ*îé Г¬Г*òðèöû}
writeln('Ishodna9 matriza:');
for i:=1 to n do
 begin
  write(' ':5);
  for j:=1 to m do
  write(a[i,j]:5);
  writeln;
 end;
{Г±Г·ГЁГІГ*ГҐГІ ñóììó Гў ñòîëáöГ*Гµ}
for j:=1 to m do
 begin
 S:=0;
 if j mod 2<>0 then
 begin
  for i:=1 to n do
  S:=s+a[i,j];
{äåëГ*ГҐГ¬ äîïîëГ*èòåëüГ*ГіГѕ ñòðîêó}
  a[n+1,j]:=s
  end;
 end;
writeln;
{âûâîä äîïîëüГ*èòåëüГ*îé ñòðîêè}
write('Summa');
for j:=1 to m do
write(a[n+1,j]:5);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.10.2010, 17:44

Дан двумерный массив MAS. Ввести A (номер строки) и B (номер столбца) Определить сумму всех ближайших соседних элементов для MAS[A,B]
Дан двумерный массив MAS. Ввести A (номер строки) и B (номер столбца)...

Вычислить сумму элементов, номер столбца которых нечетный
2)Дан двумерный массив размерностью 5х5. Вычислить сумму элементов, номер...

Вычислить сумму элементов матрицы, номер столбца которых нечетный
Дан двумерный массив размерностью 5х5. Вычислить сумму элементов, номер столбца...


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

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

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