двумерный массив С из 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
//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.
Илья Балыков
а с блок-схемой не поможете?
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт