Вопрос по информатике:
Найти сумму кратных 6 чисел в столбцах двумерного массива 10 на 10. Паскаль
Пожаловаться
- 18.05.2018 02:13
- Информатика
- remove_red_eye 15235
- thumb_up 10
Ответы и объяснения 2
Const n=10;
var a:array[1..n,1..n] of integer;
s:array[1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(30);
write(a[i,j]:4)
end;
writeln
end;
writeln;
for i:=1 to n do
for j:=1 to n do
if a[i,j] mod 6 = 0 then
s[j]:=s[j]+a[i,j];
for i:=1 to n do
if s[i]>0 then writeln('В столбце ',i:2,' сумма чисел, кратных 6, равна: ',s[i])
else writeln('В столбце ',i:2,' нет чисел, кратных 6');
readln
end.
var a:array[1..n,1..n] of integer;
s:array[1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(30);
write(a[i,j]:4)
end;
writeln
end;
writeln;
for i:=1 to n do
for j:=1 to n do
if a[i,j] mod 6 = 0 then
s[j]:=s[j]+a[i,j];
for i:=1 to n do
if s[i]>0 then writeln('В столбце ',i:2,' сумма чисел, кратных 6, равна: ',s[i])
else writeln('В столбце ',i:2,' нет чисел, кратных 6');
readln
end.
Пожаловаться
- 19.05.2018 02:24
- thumb_up 9
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(10,10,-99,99);
a.Println(4); Writeln(40*'-');
Writeln('Суммы по столбцам чисел, кратных 6');
a.Cols.Select(col->col.Where(t->t mod 6=0).Sum).Println
end.
Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(10,10,-99,99);
a.Println(4); Writeln(40*'-');
Writeln('Суммы по столбцам чисел, кратных 6');
a.Cols.Select(col->col.Where(t->t mod 6=0).Sum).Println
end.
Пожаловаться
- 20.05.2018 21:00
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы