Составить программу для нахождения произведения элементов массива Т из 8 элементов целого типа, заполнить его с клавиатуры и вывести на экран в строку через пробел. Язык программирования - Паскаль.
Ответы
Ответ дал:
0
Программа:
Pascal:
const N = 8;
var
arr: array[1..N] of integer;
i, pr: integer;
begin
pr := 1;
writeln('Введите массив из ', N, ' чисел: ');
for i := 1 to N do begin
readln(arr[i]);
pr := pr * arr[i];
end;
write('Массив: ');
for i := 1 to N do write(arr[i], ' ');
writeln(#13#10, 'Произведение элементов: ', pr);
end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
7 лет назад
8 лет назад
string NewNumberString;
for (int i = 0, j = 0; i < 8; i++)
{
Console.WriteLine($"Введите {++j} число массива .");
NewNumberString = Console.ReadLine();
if (!(int.TryParse(NewNumberString, out int NumberString))) return;
Array[i] = NumberString;
}
int Con = 1;
Console.Write("Элементы массива: ");
foreach(int firstcon in Array)
{
Console.Write($"{firstcon} ");
Con *= firstcon;
}
Console.WriteLine($"\nРезультат перемножения элементов массива: {Con} .");
Console.ReadLine();