Написать программку для Паскаль: найти произведение 10 натуральных чисел
Написать программу для Паскаль: отыскать творение 10 натуральных чисел
Задать свой вопросvar
Arr :array [1..10] of integer; // объявляем массив.
i, j : integer; // объявляем переменные целочисленного типа.
begin
j := 1;
writeln(Введите 10 натуральных чисел:); // вывод строки на экран.
for i := 1 to 10 do // начало цикла от 1 до 10.
begin
read (Arr[i]); // считываем числа введенные с клавиатуры.
j := j * Arr[i]; // считаем произведение введенных чисел.
end;
writeln ( Творение 10 натуральных чисел равно: , j); // вывод ответа на экран.
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Экономика.
Экономика.
Русский язык.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Химия.
Русский язык.
Геометрия.