двумерный массив ..как грамотно оформить ??

@костя к · Регистрация: 11.12.2010

Студворк — интернет-сервис помощи студентам

в матрице А(6 8) найти среднюю арифметическую элементов 5 го столбца и заменить его на элемент А(2 1)
подскажите как это правильно сделать ...???
в чем я ошибся ??

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
spol:=0;
kol:=5;
for i:=1 to 6 do 
for о :=1 to 8 do 
begin
spol:=spol+A[i,j];
end;
srednee:=spol/kol;
write('srednee=',srednee:5:1);
end;
begin
R:=srednee;
srednee:=A[2,1];
A[2,1]:=R;
end;

@TAVulator · 04.01.2011, 13:54

Сообщение от костя к

и заменить его на элемент А(2 1)

может правильней "заменить ИМ элемент А(2 1)"?

Сообщение от костя к

for i:=1 to 6 do
for о :=1 to 8 do
begin
spol:=spol+A[i,j];
end;

бред. ибо чему равно j?

Сообщение от костя к

srednee:=spol/kol;

почему делим именно на 5?

Такое ощущение, что ты не в курсе, что такое среднее арифметическое...

@костя к · 04.01.2011, 16:03 **[ТС]**

честно то я и вправду не в курсе
объясни что к чему тут вообще
да верно НУЖНО ЗАМЕНИТЬ ИМ ЭЛЕМЕНТ А(2 1)

Pascal
1
2
for i:=1 to 6 do 
for J:=1 to 8 do

Добавлено через 4 минуты
А как тогда указать что нужно найти среднее арефм элементов 5 го столбца

@TAVulator · 04.01.2011, 16:12

костя к, среднее арифметическое - это сумма элементов, поделенная на их количество.
например:
1 2 3 4 5
срАрифм = (1+2+3+4+5)/5 = 15/5 = 3

Добавлено через 5 минут

Сообщение от костя к

А как тогда указать что нужно найти среднее арефм элементов 5 го столбца

например так:

Pascal
1
2
For i:=1 to 6 do
 ... A[i,5] ...

@костя к · 04.01.2011, 16:18 **[ТС]**

прости покажусь совсем дураком
но я не въехал
вторую строчку с А[i,5] рапиши подробнее
или сам мой фрагмент исправь если несложно

@TAVulator · 04.01.2011, 16:25

Сообщение от костя к

или сам мой фрагмент исправь если несложно

Pascal
1
2
For i:=1 to 6 do
 spol:=spol+A[i,5];

@костя к · 04.01.2011, 16:36 **[ТС]**

А kol чему равно

@TAVulator · 04.01.2011, 16:43

Сообщение от костя к

А kol чему равно

шести, а ты чему думал?

@костя к · 04.01.2011, 17:13 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
spol:=0;
kol:=6;
for i:=1 to 6 do 
for j :=1 to 8 do 
begin
spol:=spol+A[i,5];
end;
srednee:=spol/kol;
write('srednee=',srednee:5:1);
end;
begin
R:=srednee;
srednee:=A[2,1];
A[2,1]:=R;
end;

Добавлено через 45 секунд
теперь я все правильно сделал?

@TAVulator · 04.01.2011, 17:15

Сообщение от костя к

теперь я все правильно сделал?

нет. цикл переписал не правильно.

@костя к · 04.01.2011, 17:18 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
spol:=0;
kol:=6;
begin
for i:=1 to 6 do 
spol:=spol+A[i,5];
srednee:=spol/kol;
write('srednee=',srednee:5:1);
end;
begin
R:=srednee;
srednee:=A[2,1];
A[2,1]:=R;
end;

@mifi · 04.01.2011, 17:19

костя к, четвертую, пятую и седьмую строку в последнем своем коде убери!!!

Уже убрал... о5 я опоздал... )))

@костя к · 04.01.2011, 17:22 **[ТС]**

((блин что ж так туго до меня доходит

Добавлено через 1 минуту
mifi и что это выйдет ??

Добавлено через 30 секунд
а тоесть теперь верно???

@mifi · 04.01.2011, 17:24

Сообщение от костя к

mifi и что это выйдет ??

Та то я для твоего предпоследнего варианта... )

Ща все правильно у тебя!!!

@TAVulator · 04.01.2011, 17:25

Сообщение от костя к

а тоесть теперь верно???

в общем да.

@костя к · 04.01.2011, 17:26 **[ТС]**

блин то ли я такой тугой то ли мне раньше объясняли плохо ...что то мне не оч дается это програмирование
всем спасибо !!!

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@костя к 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 18
	04.01.2011, 16:18 [ТС]
	прости покажусь совсем дураком но я не въехал вторую строчку с А[i,5] рапиши подробнее или сам мой фрагмент исправь если несложно 0

@костя к 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 18
	04.01.2011, 16:36 [ТС]
	А kol чему равно 0

@mifi 42 / 42 / 14 Регистрация: 29.12.2010 Сообщений: 159
	04.01.2011, 17:19
	костя к, четвертую, пятую и седьмую строку в последнем своем коде убери!!! Уже убрал... о5 я опоздал... ))) 0

@костя к 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 18
	04.01.2011, 17:22 [ТС]
	((блин что ж так туго до меня доходит Добавлено через 1 минуту mifi и что это выйдет ?? Добавлено через 30 секунд а тоесть теперь верно??? 0

@костя к 0 / 0 / 0 Регистрация: 11.12.2010 Сообщений: 18
	04.01.2011, 17:26 [ТС]
	блин то ли я такой тугой то ли мне раньше объясняли плохо ...что то мне не оч дается это програмирование всем спасибо !!! 0