Составьте программу которая формирует массив из 10 целых чисел из промежутка [-7 7] и выводит на экран сформированный массив и произведение отрицательных элементов массива
32
ОТВЕТЫ
Program pr_1;
var a:array [1..10] of integer;
i,p:integer;
begin
p := 0
for i := 1 to 10 do
begin
a[i] := random(-7,7);
if a[i] lt; 0 then
p := p + a[i];
end;
writeln(p);
end.
var a:array [1..10] of integer;
i,p:integer;
begin
p := 0
for i := 1 to 10 do
begin
a[i] := random(-7,7);
if a[i] lt; 0 then
p := p + a[i];
end;
writeln(p);
end.
97
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Lozh
Составьте программу которая формирует массив из 10 случайных чисел ...
2019-01-23 04:41:55
Евгения
Сколько кбайт составляет сообщение содержащее 8192 бит? ...
2019-01-23 04:39:57
Gasius
Подскажите, люди добрые. Пробелы в информатике дают о себе ...
2019-01-23 04:38:15
Эраст
Дано натуральное число N ,и последовательных целых чисел,каждое из ...
2019-01-23 04:36:14