Вопрос по информатике:
Паскаль!!!
Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10] и найти сумму положительных элементов в каждой строке.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.09.2016 12:36
- Информатика
- remove_red_eye 14037
- thumb_up 36
Ответы и объяснения 1
Var A:Array[1..nmax,1..nmax] of integer; n,m,i,j,sumN,sumV:integer;B:Array[1..nmax] of integer;beginwrite('Введите число n');readln(n);for i:=1 to n do beginfor j:=1 to n do beginm:= random(20)-10;A[i,j]:= m;write(A[i,j]:4);end;writeln;end;
writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif A[i,j]> 0 then beginwrite(A[i,j]:4); B[i]:= B[i] + A[i,j];end;end;writeln;end;writeln;writeln;for i:=1 to n dowriteln(B[i]:4);end.
- 23.09.2016 04:49
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.