Задание:
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПОЖАЛУЙСТА. Я пропустила тему. ПО ПАСКАЛЬ.! Дан одномерный массив А состоящий из 10 элементов. Вывести на экран исходную таблицу и резултат программы. Найти произведения элементов массива А. Удовлетворяющих условию: c <= A[i] <= d.
Решение:
program kvcjkdsnfckls; uses crt; var a: array[1… 10] of integer; i,c,d,p,j: integer; beginclrscr; readln (c,d); p: =1; j: =1; for i: =1 to 10 doreadln (a[i]); for i: =1 to 10 dowriteln (a[i]); for i: =1 to 10 doif (a[i]>=c) and (a[i] <= d) then beginp: =a[i]*j; j: =p; end; writeln ('proizavedenie=',j); readlnend. Честно, с таблицей не понял, но вроде все нормально. Программа просит ввести c и d Затем значения массиваЗатем, по-видимому, выводится таблицаЗатем высчитывается произведение подходящих элементов, и оно выводится
Знаете другой ответ?