function MaxElem(a: array[,] of integer; i: integer): integer;
var
j, m: integer;
begin
m := a[i, 0];
for j := 1 to length(a, 1) - 1 do
if a[i, j] > m then
m := a[i, j];
MaxElem := m
end;
procedure Input(var a: array[,] of integer);
var
i, j: integer;
begin
Writeln('вводите элементы массива');
for i := 0 to length(a, 0) - 1 do
for j := 0 to length(a, 1) - 1 do
read(a[i, j]);
end;
procedure Output(var a: array of integer);
var
i: integer;
begin
Writeln('полученный массив');
for i := 0 to length(a) - 1 do
write(a[i], ' ');
end;
var
m, n, i: integer;
a: array[,] of integer;
b: array of integer;
begin
read(m, n); // ввод числа строк и столбцов
setlength(a, m, n);
setlength(b, m);
Input(a);
for i := 0 to m - 1 do
b[i] := MaxElem(a, i);
Output(b);
end.
Написано на Free Pascal
Электронные презентации-это презентации которые выводятся с проектора на электронную доску,стену и тп.В современное время люди пользуются электронными презентациями чаще.Их создавать очень просто для тех кто немножко разбирается в компьютерах.Электронные презентации создаются примерно так: сначала находим нужную информацию,создаем слайды,оформляем и скачиваем на флешку либо на какой нибудь другой носитель информации.Электроннми презентациями могут быть видео,клипы,слайды и т.д.И их темы тоже разные.Например можно создать презентацию о своем городе либо о любимом певце. Электронные презентации "моднее" чем презентации на листочках или записанных руками.
