Найти, сколько положительных элементов содержит заданная матрица в каждой строке.

@Дэрианна · Регистрация: 04.10.2009

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

Задана квадратная матрица A размером N x N (N<=10), состоящая из действительных элементов. Найти, сколько положительных элементов содержит данная матрица в каждой строке.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program rabi;
var
i,j:integer;
p: real;
a: array[1..10,1..10]of real;
begin
Randomize;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
a[i,j]:=Random(50);
end;
end;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
write (a[i,j],' ');
end;
writeln;
end;
end.

@Lyohich84 · 15.06.2010, 14:03

И не забудьте объявить переменную k типа integer или byte. Вопрос: зачем нужна переменная p типа real?

Pascal
1
2
3
4
5
6
7
for i:=1 to 10 do
 begin
  k:=0
  for j:=1 to 10 do
   if a(i,j)>0 then k:=k+1;
  writeln('stroka ',i,' soderzhit ',k,' polozhitelnih elementov');
 end;

@mamedovvms · 15.06.2010, 14:16

Сообщение от Дэрианна

состоящая из действительных элементов.

Сообщение от Дэрианна

a[i,j]:=Random(50);

по моему это противоречит условию задачи

@Lyohich84 · 15.06.2010, 14:22

Сообщение от mamedovvms

по моему это противоречит условию задачи

Да, тогда наверно так

Pascal
1
a[i,j]:=random*50

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .