Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]. Размер массива n.

Паскаль.

mirageKZ: Автор, зачем задание поменял?

Ответы

Ответ дал: mirageKZ

Ответ:

Free Pascal

var

a : array of array of integer;

b : array of integer;

s, i, j, n, m : integer;

begin

writeln('Введите кол-во строк:');

readln(m);

writeln('Введите кол-во столбцов:');

readln(n);

randomize;

setlength(a, n);

setlength(b, m);

for i:=0 to n-1 do

setlength(a[i], m);

for j:=0 to m-1 do begin

s:=0;

for i:=0 to n-1 do begin

a[i,j] := random(50) - 25;

if a[i,j] <0 then inc(s);

write(a[i, j], ' ');

end;

b[j]:=s;

writeln();

end;

writeln('--------------------------');

for j:=0 to m-1 do

writeln(j+1,' строка = ', b[j]);

end.

Приложения:

BobbyFresnel: *софта

BobbyFresnel: Матрица из Вашего решения создается и заполняется одним оператором: var a := MatrRandom(n, m, -25, 24);

mirageKZ: в ABS

mirageKZ: ABC

mirageKZ: кто спорит, что прогресс идёт?

BobbyFresnel: Не знаю кто, но Вы ведь по какой-то причине пишете на FPC, тратя кучу лишнего времени и усилий.

BobbyFresnel: Мы обычно меж собой называем PascalABC.NET коротко - РАВС. И регистр можно на латиницу не переключать ))

BobbyFresnel: Если хотите, посмотрите более свежее задание за 50 баллов с заголовком "Нужна помощь в паскале" - там три задачи с матрицей и отлично видно, как с этим играючи расправляется РАВС.

mirageKZ: Большое спасибо!

BobbyFresnel: Не за что)

Ответ дал: BobbyFresnel

var n := ReadInteger;

var a := ArrRandom(n, -28, 27);

a.Println.Where(t -> t.Divs(3)).Product.Print

Приложения: