Вопрос по информатике:
Дано: двовимірний масив дійсних чисел. Визначнте: добуток елементів, розміщених у непарних стовпцях.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.07.2017 10:45
- Информатика
- remove_red_eye 15950
- thumb_up 10
Ответы и объяснения 2
//Pascal ABC.NET v3.1 сборка 1172
Const
n=3;
Var
ma:array[1..n,1..n] of real;
i,j:integer;
r:real;
begin
randomize;
r:=1;
writeln('Matrix:');
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
ma[i,j]:=random(1,10);
if j mod 20 then r:=r*ma[i,j];
write(ma[i,j]:4);
end;
end;
writeln;
writeln('Res=',r);
end.
Пример работы кода:
Matrix:
5 3 3
2 2 5
10 2 4
Res=6000
- 03.07.2017 15:59
- thumb_up 48
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var m:=ReadInteger('число строк ');
var n:=ReadInteger('число столбцов ');
var a:array[,] of real; SetLength(a,m,n);
Randomize;
var p:=1.0;
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do begin
a[i,j]:=89*Random+10;
Write(a[i,j]:0:5,' ');
if j mod 2=0 then p*=a[i,j]
end;
Writeln
end;
Writeln(p)
end.
Тестовое решение:
число строк 4
число столбцов 3
83.48215 49.40392 38.47974
79.95518 85.86098 19.45080
34.86908 65.25898 51.15671
96.59641 24.22868 42.34227
36449203938146.9
- 04.07.2017 06:12
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.