Вычислить сумму положительных элементов для каждой матрицы

@to-ot · Регистрация: 25.09.2010

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

Здраствуйте, помогите пожалуйста с задачей, завтра сдавать надо, сделать надо в консольном приложение Pascal!Буду очень благодарен!"

Проверить, есть ли в целочисленной матрице А(6*7) элементы, равные заданному значению С, а в целочисленной матрице В(5*8) элементы, равные заданному значению Р. Вычислить также сумму положительных элементов для каждой матрицы.

@JUK · 07.10.2010, 18:52

Что то вроде того (возможны ошибки грамматические), элементы опиши сам

Pascal

readln(c);
 
k1:=0;
k2:=0;
sumA:=0;
sumB:=0;
for i:=0 to 6 do 
for j:=0 to 7 do
  begin  
  if a[i][j]=c then k2:=k2+1;
  if a[i][j]>0 then sumA:=sumA+a[i][j];
end;
 
readln(p);
for i:=0 to 5 do 
for j:=0 to 8 do
begin  
  if b[i][j]=p then k2:=k2+1;
 if b[i][j]>0 then sumB:=sumB+b[i][j];
end;
 
writeln('В матрице А:');
if k1>0 then
writeln(' есть равные элементы:',k1,'-штук');
else
writeln('Нет равных элементов.');
writeln('Сумма положительных=',sumA);
 
writeln('В матрице B:');
if k2>0 then
writeln(' есть равные элементы:',k2,'-штук');
else
writeln('Нет равных элементов');
writeln('Сумма положительных=',sumB);

@to-ot 0 / 0 / 1 Регистрация: 25.09.2010 Сообщений: 17
		1
	Вычислить сумму положительных элементов для каждой матрицы 07.10.2010, 16:05. Показов 1533. Ответов 1 Метки нет (Все метки) Здраствуйте, помогите пожалуйста с задачей, завтра сдавать надо, сделать надо в консольном приложение Pascal!Буду очень благодарен!" Проверить, есть ли в целочисленной матрице А(67) элементы, равные заданному значению С, а в целочисленной матрице В(58) элементы, равные заданному значению Р. Вычислить также сумму положительных элементов для каждой матрицы. 0

	07.10.2010, 18:52

Вычислить сумму положительных элементов для каждой матрицы

Решение