Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
IvAnAmA
0 / 0 / 0
Регистрация: 11.05.2011
Сообщений: 5
1

Подскажите решение

25.05.2011, 07:38. Просмотров 353. Ответов 1
Метки нет (Все метки)

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
Program laba4;
uses Crt;
const n=4;m=4;
var a:array[1..n,1..m] of integer;
k:integer;i,j:integer;s:integer;
begin
clrscr;
randomize;
write ('Исходная матрица');
for i:=1 to n do begin
writeln;
for j:=1 to m do begin a[i,j]:=random(20)-5;
write(a[i,j]:5,' ');end;end;
writeln;
s:=0;
for j:=1 to m do
k:=0;
begin
for i:=1 to n do
begin
s:=s+a[i,j];
if a[i,j]<0 then inc(k);end;
if k>0 then writeln('сумма в столбце ',j, ' = ',s)
else writeln('столбец ', j, ' содержит положительныы элемент');
end;
readln;
end.
Программа выводит на экран значения только для 4 столбца.Как сделать что бы выводилось для 4х столбцов???
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2011, 07:38
Ответы с готовыми решениями:

подскажите решение
На сколько дней работнику хватит зарплаты S, если он тратит N р. в день и его...

Подскажите решение!))
Упражнения С клавиатуры вводится заданный текст

подскажите решение
Дан целочисленный массив.Найти кол-во элементов расположенных после последнего...

Подскажите решение
Вычислить длину L дуги окружности с углом , при этом можно задавать или...

подскажите решение задач по теории вероятностей или подскажите формулы
Задача 1. Стрелки А,В,С попадают в мишень с вероятностями 0.9, 0.8, 0.7...

1
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
25.05.2011, 08:19 2
k:=0;
begin
Pascal
1
2
begin
k:=0;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2011, 08:19

Подскажите решение
Составить программу, в которой необходимо сформировать протокол лыжных гонок в...

Подскажите решение
Нашел в нете пример автоматическое заполнение реквизита. ФормаДокумента...

Подскажите решение ДУ
Помогите, пожалуйста, решить ДУ . Я нашла общее решение однородного уравнения....


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

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

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