Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Используя генератор случайных чисел,заполнить массив размерностью 10 элементов числами из интервала [-20,+20] и найти произведение всех элементов массива

10-11 класс

Nastyakonova 29 июня 2014 г., 19:49:30 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
наташа2204
29 июня 2014 г., 21:23:27 (9 лет назад)

var a:array[1..10] of integer;
x,y,i,p:integer;
begin
randomize;
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(20);
x:=random(3);
if x:=2 then a[i]:=a[i]*(-1);
p:=p*a[i];
write(a[i],'  ')
end;
writeln;
writeln(p);
end.

Ответить

Другие вопросы из категории

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Опишите на русском языке или на одном из языков

программирования алгоритм, позволяющий найти и вывести сумму элементов массива, кратных тринадцати. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого делится на тринадцать. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.


const N=30;
var a: array [l..N] of integer;
i,j,s: integer;
begin
for i:=l to N do readln(a[i]);
...
end.

Читайте также

1)заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку,заменив все четные элементы на число

100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!



Вы находитесь на странице вопроса "Используя генератор случайных чисел,заполнить массив размерностью 10 элементов числами из интервала [-20,+20] и найти произведение всех элементов массива", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.