Вопрос по информатике:
В матрице 7x8 найти : количество и произведение ее положительных элементов(на Делфи)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.04.2015 16:52
- Информатика
- remove_red_eye 19479
- thumb_up 32
Ответы и объяснения 1
Program Project1;
{$APPTYPE CONSOLE}
var
a: array[0..6] of array [0..7] of Integer;
i,j: integer;
Count,Pr: integer;
begin
Count:=0;
Pr:=1;
for I := 0 to 6 do
begin
for J := 0 to 7 do
Read(a[i,j]);
Readln();
end;
for I := 0 to 6 do
for J := 0 to 7 do
begin
if a[i,j]>0 then
begin
Inc(Count);
Pr:=Pr*a[i,j];
end;
end;
if Count=0 then
Pr:=0;
Writeln('Количество чисел a[i,j]>0 = ',Count);
Writeln('Произведение чисел a[i,j]>0 = ',Pr);
Readln();
end.
- 20.04.2015 11:46
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.