Conju
5 год назад
Пожалуйста посчитайте, срочнооо. Завтра нужно сдать задания, а у меня никак не получается ;(1) Дан двумерный массив целых чисел.Сформировать одномерный массив, каждый элемент которого равен последнему нечетному элементу соответствующей строки двумерного массива (если такого элемента в строке нет, то он равен нулю).2) В двумерном массиве хранится информация об оценках каждого из 20 учеников класса по тому или иному предмету (в первой строке - информация об оценках первого ученика, во второй - второго). Общее число предметов равно 10. Определить среднюю оценку пятого ученика.
ОТВЕТЫ
Hofmann Ursula
Oct 24, 2020
Pascal
-----------------------------------
var
A: array [1..10, 1..20] of integer;
i, j: byte;
Srednee: real;
begin
randomize;
writeln('Сгенерированный массив.');
for i := 1 to 10 do
begin
for j := 1 to 20 do
begin
A[i, j] := random(5)+1;
write(A[i, j]:4);
end;
writeln;
end;
writeln('------------------------------------------------------------------------------------');
for j := 1 to 20 do
begin
Srednee := 0;
for i := 1 to 10 do
Srednee := Srednee + A[i, j];
write((Round(Srednee/10)):4);
end;
end.
-----------------------------------
var
A: array [1..10, 1..20] of integer;
i, j: byte;
Srednee: real;
begin
randomize;
writeln('Сгенерированный массив.');
for i := 1 to 10 do
begin
for j := 1 to 20 do
begin
A[i, j] := random(5)+1;
write(A[i, j]:4);
end;
writeln;
end;
writeln('------------------------------------------------------------------------------------');
for j := 1 to 20 do
begin
Srednee := 0;
for i := 1 to 10 do
Srednee := Srednee + A[i, j];
write((Round(Srednee/10)):4);
end;
end.
- А где первая задача?
364
Смежные вопросы:
