Задать вопрос
1 июня, 22:48

Найти произведение всех элементов двумерного массива, больших заданного числа

+4
Ответы (1)
  1. 2 июня, 01:50
    0
    Язык какой?

    Паскаль

    type massive=array[1 ... 10,1 ... 10] of integer;

    var m:massive;

    pr:real;

    digit:integer;

    i, k:byte;

    flag:boolean;

    begin

    for i:=1 to 10 do

    for k:=1 to 10 do

    readln (m[i, k]) ; / / заполнение массива

    writeln ('Введите границу: ') ;

    readln (digit) ;

    pr:=1;

    flag:=false;

    for i:=1 to 10 do

    for k:=1 to 10 do

    if m[i, k]>digit then

    begin

    pr:=pr*m[i, k]; / / все, что больше заданного перемножаем

    flag:=true;

    end;

    if flag=false then writeln ('Чисел больше заданного нет.')

    else writeln ('Общее произведение: ', pr:1:0) ;

    END.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найти произведение всех элементов двумерного массива, больших заданного числа ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы