Создайте массив из n
5-9 класс
|
элементов (1 < n < 20) и найдите произведение всех его элементов.
Элементы массива вводятся генератором случайных чисел.
var
a: array of integer;
i, n: integer;
k: longint := 1;
begin
readln(n);
a := new integer[n];
n -= 1;
for i := 0 to n do
begin
a[i] := random(10);
writeln('a[', i, '] => ', a[i]);
end;
writeln();
foreach i in a do
k *= i;
writeln(k);
end.
var
a: array [1..20] of integer;
i, n: integer;
k: longint;
begin
readln(n);
k := 1;
for i := 1 to n do
begin
a[i] := random(10);
write(' ', a[i]);
end;
writeln();
for i := 1 to n do
k := k * a[i];
writeln(k);
end.
Другие вопросы из категории
Unicodc. Какой объем памяти (в Кбайтах) займет доклад, если в каждой строке по 32 символа, а на каждой странице помещается 64 строки? Каждый символ в кодировке Unicode занимает 16 бит памяти. 1) 16 2) 32 3) 64 4) 256
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать алгоритм на произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.
2. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с чётными номерами. Протестировать алгоритм на произвольных массивах размерностью 5 и 8 элементов.
3. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с нечётными номерами в обратном порядке. Протестировать алгоритм для следующих исходных данных:
а) 1 3 5 6 8 9
б) -1 4 6 2 4 6 8 6 9
P.S. Убедительная просьба написать решение целиком и до наступления ночи. Я являюсь дилетантом в Паскале, а эти три задачи являются моим домашним заданием по информатике на завтра.