Напишите программу, которая заполняет массив из 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

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

Найти нужный

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

Постройте дерево, соответствующее арифметическому выражению. Запишите это выражения в префиксной и постфиксной формах: (a+b)*(c+2*d) (2*a-3*d)*c+2*b... 1. Что называется архивацией? 2. Для чего предназначена архивация? 3. Какой файл называется архивным? 4. Что называется разархивацией? 5. Какая информ... Доступ к файлу www.txt, находящемуся на сервере ftp.net, осуществляется по протоколу http. В таблице фрагменты адреса файла закодированы буквами от А... Почему не ставятся связи у Ном_накл и Код_ск? Ключевые поля есть , Primary Key тоже Но все равно пишет,что "не обнаружен уникальный индекс для адресу... Помогите пожалуйста 1. Выберите правильные варианты вывода элементов массива на печать в строку. 1)for i:=1 to n do write (a[i], ` ` ) 2)for i:=1...