Информатика | 5 - 9 классы
Помогите пожалуйста людииимим надо срочно.
Помогите пожалуйста ((((((((((?
Помогите пожалуйста ((((((((((.
СРОЧНО ПОМОГИТЕ УМОЛЯЮ ?
СРОЧНО ПОМОГИТЕ УМОЛЯЮ .
Помогите 2 и 3срочно надо?
Помогите 2 и 3
срочно надо.
Пожалуйста, помогите, очень срочно?
Пожалуйста, помогите, очень срочно!
.
Здравствуйте, нужно решить задачу, помогите пожалуйста (срочно)?
Здравствуйте, нужно решить задачу, помогите пожалуйста (срочно)!
.
Срочно помогите?
Срочно помогите!
Информатика, прикрепил фото.
Пожалуйста срочно помогите< ; 3?
Пожалуйста срочно помогите< ; 3.
Помогите с заданием пожалуйста срочно надо сдать до 21 : 00?
Помогите с заданием пожалуйста срочно надо сдать до 21 : 00.
Если вам необходимо получить ответ на вопрос Помогите пожалуйста людииимим надо срочно?, относящийся к уровню подготовки учащихся 5 - 9 классов, вы открыли нужную страницу. В категории Информатика вы также найдете ответы на похожие вопросы по интересующей теме, с помощью автоматического «умного» поиска. Если после ознакомления со всеми вариантами ответа у вас остались сомнения, или полученная информация не полностью освещает тематику, создайте свой вопрос с помощью кнопки, которая находится вверху страницы, или обсудите вопрос с посетителями этой страницы.
1) function MaxArr(a : array of integer) : integer ;
var i, l, ma : integer ;
begin
l : = high(a) ;
ma : = a[0] ;
for i : = 1 to l do
if a[i]> ; ma then ma : = a[i] ;
MaxArr : = ma ;
end ;
var a : array of array of integer ;
i, j, l : integer ;
begin
write('Введите длину матрицы : ') ;
readln(l) ;
setlength(a, l) ;
for i : = 0 to l - 1 do setlength(a[i], l) ;
for i : = 0 to l - 1 do
begin
writeln ;
for j : = 0 to l - 1 do
begin
a[i, j] : = random(50) + 1 ;
write(a[i, j], ' ') ;
end ;
end ;
a[0, 0] : = MaxArr(a[0]) ;
a[1, 1] : = MaxArr(a[1]) ;
a[2, 2] : = MaxArr(a[2]) ;
a[3, 3] : = MaxArr(a[3]) ;
a[4, 4] : = MaxArr(a[4]) ;
writeln ;
writeln('Преобразованный массив') ;
for i : = 0 to l - 1 do
begin
writeln ;
for j : = 0 to l - 1 do
begin
write(a[i, j], ' ') ;
end ;
end ;
end.
2) function SumArr(a : array of integer) : integer ;
var i, l, s : integer ;
begin
l : = high(a) ;
s : = 0 ;
for i : = 0 to l do
s : = s + a[i] ;
SumArr : = s ;
end ;
var a : array of array of integer ;
i, j, n, m, s : integer ;
begin
write('Введите длину матрицы N : ') ;
readln(n) ;
write('Введите длину матрицы M : ') ;
readln(m) ;
setlength(a, n) ;
for i : = 0 to n - 1 do setlength(a[i], m) ;
for i : = 0 to n - 1 do
begin
writeln ;
for j : = 0 to m - 1 do
begin
a[i, j] : = random(50) + 1 ;
write(a[i, j], ' ') ;
end ;
end ;
s : = 0 ;
for i : = 0 to n - 1 do s : = s + SumArr(a[i]) ;
writeln ;
writeln('Сумма всех элементов матрицы равна : ', s) ;
end.