Ответы на вопрос:
Просто пытаешься выкрикнуть это слово в душе или же по тихому в слух, я так всегда делал
Язык какой? паскаль 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.
Популярно: Информатика
-
ymnik334502.05.2020 05:01
-
kirakoveduard20.05.2022 16:52
-
Anastasia2018124.06.2023 12:31
-
polisorb225.12.2021 11:15
-
Настёна3007200312.06.2022 00:22
-
nadya890312.06.2021 21:02
-
фрешграфф05.06.2020 01:14
-
xenyazhardin02.03.2022 21:42
-
AidarSharafutdinov01.05.2020 17:18
-
Vika1568393hhhu17.01.2022 06:41