Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Enterpris
0 / 0 / 0
Регистрация: 30.11.2013
Сообщений: 56
1

Дополните программу

09.12.2013, 19:40. Просмотров 272. Ответов 1
Метки нет (Все метки)

Здравствуйте. нужна помощь с программой. Не могу понять как заполнить массив.
Дан двумерный массив a, размером (nm). Заполнить одномерный массив, найдя среднее арифметическое отрицательных элементов в каждом столбце матрицы
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program c2;
uses crt;
const n=10;
const m=5;
var a:array[1..n,1..m] of real;
b:array[1..n]of real;
i,j:integer;
s,sr:real;
begin
s:=0;
for i:=1 to n do begin
for j:=1 to m do
a[i,j]:=random(20)-15;
write(a[i,j]:4:0);
for i:=1 to n do
if a[i,j]<0 then begin s:=s+a[i,j];
end;
sr:=s/n;
writeln('sr=',sr);
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2013, 19:40
Ответы с готовыми решениями:

Дополните программу
Написал программу для данного условия.Дан двумерный массив a, размером (nm). Заполнить одномерный...

Дополните число лидирующими нулями таким образом, чтобы оно имело ровно 8 знаков.
1)На вход дается единственная строчка. Выведите единственное число - количество пробелов. Пример:...

Дополните программу треугольником
Ребята помогите пожалуйста!Нужно дополнить программу на паскале треугольником Unit GraphObj;...

Дополните программу
нужно дополнить мою программу еще несколькими вопросами. Как тут добавить мою программу напишите?

Дополните предыдущую программу таким образом,чтобы во введенной строке сначала удалялись лишние пробелы
Лишними считать пробелы, если они повторяются 2 или более раз подряд. Вот код предыдущей...

1
Fakeoke
314 / 314 / 201
Регистрация: 28.07.2011
Сообщений: 1,849
09.12.2013, 19:53 2
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
uses crt;
const n=4;m=5;
var
a:array [1..n,1..m] of integer;
s:array [1..m] of real;
i,j,k:integer;
begin
clrscr;
randomize;
writeln('Matica : ');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(40)-20;{-20 do 20}
write(a[i,j]:4);
end;
writeln;
end;
 
for j:=1 to m do
begin
s[j]:=0;
k:=0;
for i:=1 to n do
if (a[i,j]<0) then begin s[j]:=s[j]+a[i,j]; k:=k+1; end;
if s[j]=0 then writeln('V ',j,' stolbce otricatelnih net')
else begin
s[j]:=s[j]/k;
writeln('Sreddnee arifm otr elementov ',j,' stolbca = ',s[j]:0:3);
end;
end;
readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2013, 19:53

дополните
Задача 1. Дан фрагмент программы для обработки строковых данных. Дополнить его до полной программы....

Дополните конфигурацию
Имеются: intel core i7 950 Bloomfield; geforce gtx 660 ti (2gb). Что вы могли бы предложить для...

Дополните решение
Убрать рандом,сделать ручной ввод. Выделить цветом выводимые результаты const nmax = 20; ...


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

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

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