ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПОЖАЛУЙСТА. Я пропустила тему. ПО ПАСКАЛЬ.!

Question

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПОЖАЛУЙСТА. Я пропустила тему. ПО ПАСКАЛЬ.! Дан одномерный массив А состоящий из 10 элементов. Вывести на экран исходную таблицу и резултат программы. Найти произведения элементов массива А. Удовлетворяющих условию: c <= A[i] <= d.

Answer 1

60

empower

26 февраля 2023

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 Затем значения массиваЗатем, по-видимому, выводится таблицаЗатем высчитывается произведение подходящих элементов, и оно выводится

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: