двумерный массив С из 2-х строчек и 4-х столбцов задан при
Двумерный массив С из 2-х строчек и 4-х столбцов задан при подмоги генератора случайных чисел из промежутка [-10, 30] (целые числа).
Подсчитайте произведение частей массива, которые больше 0, но меньше 20.
Информатика, 11 класс, помогите пожалуйста
2 ответа
Тамара Кариушкина
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программка не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(2,4,-10,30);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('П = ',a.ElementsByRow.Where(t-gt;t.Between(1,19))
.Aggregate(1,(x,y)-gt;x*y))
end.
Пример
*** Исходный массив ***
24 16 22 12
2 5 1 8
----------------
П = 15360
// Внимание! Если программка не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(2,4,-10,30);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('П = ',a.ElementsByRow.Where(t-gt;t.Between(1,19))
.Aggregate(1,(x,y)-gt;x*y))
end.
Пример
*** Исходный массив ***
24 16 22 12
2 5 1 8
----------------
П = 15360
Анастасия Губонцева
//Pascal
var
A: array [1..2, 1..4] of integer;
i, j: byte;
mult: longint;
begin
mult := 1;
writeln('Сгенерированный массив: ');
for i := 1 to 2 do
begin
for j := 1 to 4 do
begin
A[i, j] := random(41)-10;
write(A[i, j]:4);
if ((A[i, j] gt; 0) and (A[i, j] lt; 20)) then
mult := mult * A[i, j];
end;
writeln;
end;
writeln('Творенье = ', mult);
end.
var
A: array [1..2, 1..4] of integer;
i, j: byte;
mult: longint;
begin
mult := 1;
writeln('Сгенерированный массив: ');
for i := 1 to 2 do
begin
for j := 1 to 4 do
begin
A[i, j] := random(41)-10;
write(A[i, j]:4);
if ((A[i, j] gt; 0) and (A[i, j] lt; 20)) then
mult := mult * A[i, j];
end;
writeln;
end;
writeln('Творенье = ', mult);
end.
Илья Балыков
а с блок-схемой не поможете?
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Облако тегов