Составьте программу, которая фотрмирует массив из 15 случайных целых чисел от -10 до 10. Найти произведение всех элементов массива, модуль которых
5-9 класс
|
меньше 3. На экран выводятся исходные значения и результаты вычеслений.
танядер
17 авг. 2014 г., 5:28:31 (9 лет назад)
Saniasadovo
17 авг. 2014 г., 6:53:24 (9 лет назад)
uses crt;
const n=15;
var a:array[1..n] of integer;
pr,i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
pr:=1;
for i:=1 to n do
if abs(a[i])<3 then pr:=pr*a[i];
writeln(pr);
end.
Ответить
Другие вопросы из категории
3. Вам необходимо оформить несколько документов.
Запишите, какие возможности текстовых процессоров вы будете использовать
в каждом из них (маркированный список, нумерованный список, таблица, многоуровневый
нумерованный список, многоуровневый маркированный список):
Читайте также
Составьте программу,которая формирует массив из 15 случайных целых цифр от -20 до 20 и меняет местами значения первого и последнего элементов
массива.На экран выводятся исходные и преобразованные значения.Надо очень СРОЧНО!!!!!!!!!!!!!!!!!!!!!!
Вы находитесь на странице вопроса "Составьте программу, которая фотрмирует массив из 15 случайных целых чисел от -10 до 10. Найти произведение всех элементов массива, модуль которых", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.