В бизнесе генеральный директор четко распределяет обязанности между подчиненными. Одни занимаются построением определенной последовательности действий, другие, подчиняясь этому течению, расширяют и дополняют его необходимой информацией, чтобы в итоге получить необходимый результат.
Когда мы рождаемся, родители вкладывают в нас программу, по которой мы слепо следуем, пока не вырастем. Но будучи чуть постарше, начинаем развивать некий алгоритм внутри себя, чтобы как-то проявиться, добиться высот.
Человек, который составляет программы, должен в голове моделировать алгоритм будущего решения. Если же он не обладает достаточным опытом, то и результат может оказаться другим.
Поделитесь своими знаниями, ответьте на вопрос:
Ввести два целых числа a и b (a < b) и вывести квадраты всех чисел от a до b . Пример: Введите два числа : 4 5 4 * 4=16 5 * 5=25 в кумире
Видимо имеется ввиду выводящий максимальны элемент этого массива
В данном примере матрица формируется при случайных чисел
program MatrixMax;
Uses Crt;
type matrix=array[1..4,1..4] of real;
var m:matrix;
max:real;
{Порождение матрицы случайным образом}
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
m[i,j]:=25+random(21);
end;
end;
end;
{Вывод матрицы на экран}
procedure PrintMatrix(mas:matrix );
var j,k:integer;
begin
for k:=1 to 4 do
begin
for j:=1 to 4 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
{Нахождение максимального элемента}
procedure Мax;
var i,j:integer;
begin
max:=m[1,1]
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if (max<m[i,j]) then max:=m[i,j];
end;
end;
end;
begin
Clrscr;
Auto;
PrintMatrix;
Max;
writeln;
writeln('Максимальный элемент матрицы: ',max);
end.