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

@Borland356 · Регистрация: 20.04.2015

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

Подсчитать количество строк в двумерном массиве сумма положительных элементов которых больше числа p.

@Puporev · 01.06.2015, 14:46

Pascal

const max=20;
var c:array[1..max,1..max] of integer;
    m,n,i,j,p,k,s:integer;
begin
randomize;
repeat
write('Количество строк от 2 до ',max,' m=');
readln(m);
until m in [2..max];
repeat
write('Количество столбцов от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    c[i,j]:=-10+random(21);
    write(c[i,j]:4);
   end;
  writeln;
 end;
write('P=');
readln(p);
k:=0;
for i:=1 to m do
 begin
  s:=0;
  for j:=1 to n do
  if c[i,j]>0 then s:=s+c[i,j];
  if s>p then k:=k+1;
 end;
write('Количество строк по условию=',k)
end.

@Borland356 0 / 0 / 0 Регистрация: 20.04.2015 Сообщений: 3
		1
	Подсчитать количество строк в двумерном массиве, сумма положительных элементов которых больше заданного числа 01.06.2015, 13:31. Показов 2552. Ответов 1 Метки нет (Все метки) Подсчитать количество строк в двумерном массиве сумма положительных элементов которых больше числа p. 0

Опции темы

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

Решение