45

Составить программу в Паскале Массив A (M,N) заполнить случайными числами из…

22 марта 2023

Составить программу в Паскале Массив A (M,N) заполнить случайными числами из промежутка [-15; -8] и подсчитать произведение элементов четныхстрок. Исходный массив и результат вывести на экран

категория: информатика



43

Вместо 20 можно подставить любое число, 20 соответствует M,Nprogram new; var a: array [1… 20,1… 20] of integer; i,j,sum: integer; beginrandomize; for i=1 to 20 dobeginfor j=1 to 20 dobegina[i,j]: =random (8) -15end; end; for i=2 to 20 dobeginfor j=1 to 20 dobeginsum: =sum+a[i,j]; i: =i+2; end; end; for i=1 to 20 dobeginfor j=1 to 20 dobeginwrite (a[i,j]); end; writeln; end; writeln ('Сумма равна ',sum: 8); end.P.S. Делал без паскаля если какие то ошибки то пиши

Знаете ответ?


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