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

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

09.12.2013, 19:40. Просмотров 265. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дополните программу (Turbo Pascal):

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

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

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

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

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

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

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
Привет! Вот еще темы с решениями:

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

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

Дополните класс
Дан класс MyString: class MyString { char *ps; int size,len;...

Дополните сборку
Добрый день! Есть неполная комплектация компьютера. Помогите, пожалуйста,...


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

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

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