Вопрос по информатике:
Найти сумму элементов первой строки массива 7х7 созданного при помощи генератора случайных чисел, паскаль.
Пожаловаться
- 23.11.2017 20:47
- Информатика
- remove_red_eye 1770
- thumb_up 31
Ответы и объяснения 2
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=MatrRandom(7,7,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Сумма по первой строке: ',a.Row(0).Sum)
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=MatrRandom(7,7,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Сумма по первой строке: ',a.Row(0).Sum)
end.
Пожаловаться
- 25.11.2017 00:53
- thumb_up 38
Program n1;
const n=7;
var a: array[1..n,1..n] of integer;
i,j,sum: integer;
begin
randomize;
writeln('исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(9)+1;
write(a[i,j],' ');
end;
writeln;
end;
for i:=1 to n do sum:=sum+a[1,i];
write('сумма элементов 1 строки: ',sum);
end.
const n=7;
var a: array[1..n,1..n] of integer;
i,j,sum: integer;
begin
randomize;
writeln('исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(9)+1;
write(a[i,j],' ');
end;
writeln;
end;
for i:=1 to n do sum:=sum+a[1,i];
write('сумма элементов 1 строки: ',sum);
end.
Пожаловаться
- 25.11.2017 02:26
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы