Вывести на экран сумму неположительных и произведение неотрицательных элементов - Free Pascal
Формулировка задачи:
2. A[i] -массив целых чисел, состоящий из 5 элементов. Элементы массива вводятся пользователем из диапазона [-10,10] Проверка ввода обязательна Выполнить: вывести на экран сумму неположительных и произведение неотрицательных элементов.
Решение задачи: «Вывести на экран сумму неположительных и произведение неотрицательных элементов»
textual
Листинг программы
Program NameProgram;
uses crt;
const len=5;
type Mas=array[1..len] of ShortInt;
var i:Byte;
A:Mas;
mult,sum:integer;
begin
clrscr;
Write('Enter Array (Range -10 : 10):');
for i:=1 to len do
repeat
readln(A[i]);
until (A[i]>=-10) and (A[i]<=10);
writeln('Array:');
for i:=1 to len do
write(A[i],' ');
writeln;
sum:=0;
mult:=1;
for i:=1 to len do
begin
if A[i]>0 then mult:=mult*A[i]
else sum:=sum+A[i];
end;
writeln('Summa: ',sum,' Product: ',mult);
readln;
end.
Объяснение кода листинга программы
- Объявление программы на языке Free Pascal.
- Установка константы len равной 5.
- Создание типа данных Mas как массива, имеющего длину len и содержащего элементы типа ShortInt.
- Объявление переменной i типа Byte для использования в цикле.
- Объявление переменной A типа Mas для хранения массива.
- Объявление переменных mult и sum типа integer для хранения суммы и произведения соответственно.
- Очистка экрана с помощью функции clrscr.
- Вывод приглашения для ввода массива с помощью функции writeln.
- Ввод элементов массива с помощью цикла for и функции readln до тех пор, пока все элементы не будут введены.
- Вывод массива на экран с помощью цикла for и функции write.
- Инициализация переменных sum и mult значением 0 и 1 соответственно.
- Перебор элементов массива с помощью цикла for и вычисление суммы и произведения в соответствии с условиями.
- Вывод на экран значений sum и mult с помощью функции writeln.
- Ввод символа для завершения работы программы с помощью функции readln.
- Конец программы.