Вопрос по информатике:
Найти количество элементов матрицы, больших максимального кратного 5. Матрица произвольная.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.05.2018 15:09
- Информатика
- remove_red_eye 10281
- thumb_up 48
Ответы и объяснения 2
ОТДЕЛ Задание+;
ПОСТ
N = 10;
M = 10;
ПЕР
матрица: РЯД N, M ИЗ ЦЕЛ;
кол, макс: ЦЕЛ;
сч1, сч2: ЦЕЛ;
УКАЗ
кол := 0; макс := 0;
ОТ сч1 := 0 ДО N - 1 ВЫП
ОТ сч2 := 0 ДО M - 1 ВЫП
ЕСЛИ матрица[сч1, сч2] ОСТАТОК 5 = 0 И матрица[сч1, сч2] > макс ТО
макс := матрица[сч1, сч2]
КОН
КОН
КОН;
ОТ сч1 := 0 ДО N - 1 ВЫП
ОТ сч2 := 0 ДО M - 1 ВЫП
ЕСЛИ матрица[сч1, сч2] > макс ТО
УВЕЛИЧИТЬ(кол)
КОН
КОН
КОН
КОН Задание.
- 16.05.2018 01:01
- thumb_up 3
uses CRT;
type mas=array[1..20,1..20] of integer;
var a,b,c,m,n,i,j,max,kol:integer;
D:mas;
Begin
clrscr;
write ('Введите размер матрицы: ');
readln (n);
write ('Введите диапазон чисел: ');
readln (a,b);
Randomize;
For i:=1 to n do
Begin
For j:=1 to n do
Begin
D[i,j]:=random(b-a)+a;
write (D[i,j]:4);
End;
writeln;
End;
For i:=1 to n do
For j:=1 to n do
Begin
If (D[i,j] mod 5)=0 then
If max Begin max:=D[i,j]; End; End; kol:=0; For i:=1 to n do For j:=1 to n do Begin If max Begin kol:=kol+1; End; End; writeln ('Макс число кратное 5= ',max); writeln ('Количество чисел больших макс= ',kol); readln; End.
- 17.05.2018 19:44
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.