Вариант с полным перебором. Решение в прикрепленном файле.
Входные данные:
4 63 4 1 34 1 3 22 3 4 31 2 3 41 3 2 42 1 4 3Выходные данные:
2 3 4 1
Program Matr22;
Uses Crt;
type matrix=array[1..5,1..5] of integer;
var m:matrix;
n:byte;
procedure Auto;
var i,j:integer;
begin
n:=0;
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
m[i,j]:=random(50)+5;
if (m[i,j]=22) then n:=n+1;
end;
end;
end;
procedure PrintMatrix(mas:matrix;);
var j,k:integer;
begin
for k:=1 to 5 do
begin
for j:=1 to 5 do
begin
write(mas[k,j]:3);
end;
writeln;
end;
end;
begin
clrscr;
Auto;
PrintMatrix(m);
writeln;
writeln('Количество элементов равных 22:',n);
readkey;
end.
Сорри за качество, если что-то не видно пишите
1. Алгоритм вычитает из большего числа меньшее до тех пор, пока числа не сравняются, а после этого выводит итоговое значение на экран. Этот алгоритм называется алгоритмом Евклида, его результатом является наибольший общий делитель двух заданных чисел.
2. Таблицы во вложении.
3. На уроках математики для нахождения наибольшего общего делителя используют такой алгоритм:
1) Раскладывают оба числа на простые множители.
2) Находят одинаковые множители (например, их можно подчеркнуть)
3) Находят произведение подчёркнутых множителей.
4. Исполнитель первого алгоритма должен уметь (= его СКИ должна включать):
- осуществлять ввод и вывод целых чисел
- сравнивать два целых числа
- вычитать целые числа
Исполнитель второго алгоритма должен уметь:
- записывать числа
- находить разложение числа на простые множители
- находить общие множители (сравнивать два целых числа на равенство)
- находить произведение чисел
А, С. Тип написать надо побольше. Привет, как дела?
