Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке {-5,5} и находит произведение ненулевых элементов.( фри Паскаль)

1 ответ

Посмотреть ответы

DevAdmin

1720

var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
p:=1;
for i:=1 to 10 do begin
a[i]:=random(11)-5;
write(a[i],' ');
if a[i]<>0 then p:=p*a[i];
end;
writeln;
write('p=',p);
end.

Хороший ответ

8 декабря 2022 18:39

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Ввести 2 числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран... помогите пожалуйста решить задачу по информатике с объяснением!! Определить номера строк матрицы R[M, N], хотя бы один элемент которых равен c, и эл... ВІДГАДАЙ ЗАГАДКУ ЦЯ ВСЕСВІТНЯ ПАВУТИНА...СКІЛЬКИ ЗНАЄ-ПРОСТО ДИВО!З нею вчись ти працювати-теж багато будеш знати... как называется часть памяти компьютера в которую поподает скопированный и вырезанный фрагмент текста?... Запишите алгоритм для исполнителя вычислитель ( пример 6) Содержащий не более 5 команд 1) получения из числа 3 числа 16; 2) получения из числа 1 чис...