Используя генератор случайных чисел,заполнить массив размерностью 10 элементов числами из интервала [-20,+20] и найти произведение всех элементов массива
10-11 класс
|
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.
Другие вопросы из категории
программирования алгоритм, позволяющий найти и вывести сумму элементов массива, кратных тринадцати. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого делится на тринадцать. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
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.
их индекса. Помогите пожалуйста,срочно надо!!!((
Читайте также
элементов массива .
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
генератора случайных чисел. если можно с блок-схемой
Нужно на языке Паскаль.