Задача по программированию на Pascal. Массив

Задача на составление программы на языке Pascal. В задаче применяются навыки работы с циклом FOR и одномерными массивами.

Задача.

Pascal. Массив

Написать программу которая будет находить произведение элементов одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры. Количество элементов массива
задаётся пользователем. Максимальное количество элементов массива - 100.
Максимальный размер вводимого числа – 3 разряда.

Пример работы программы:

ВводВывод
3
18
4
2

Пример решения задачи:

(программа написана в среде Pascal ABC.Net)

var

a: array[1..100] of integer; //Объявляем массив
i, n, p: integer;
begin
Write('Сколько элементов? ');Readln(n); //считываем количество элементов массива
p := 1; //задаём значение переменной, отвечающей за подсчёт произведения
for i := 1 to n do //задаём цикл от 1 до n количества элеменов массива
begin
write('введите число ');

readln(a[i]); //вводим значение n-ного элемента массива
p := p * a[i]; //вычисляем произведение элементов массива
end;
writeln('произведение элементов равно: ', p); //выводим ответ
end.



Задачу составил учитель информатики Лосев Антон Владимирович

22:15
572
Нет комментариев. Ваш будет первым!
Загрузка...

Соц. сети