Предмет: Информатика,
автор: Levuhka
Напишите программу, которая заполняет массив из 10 элементов случайными целыми числами на отрезке [–5; 5] и находит сумму ненулевых элементов массива. СРОЧНО!!!!!
03090d:
Через минут 20 будет готово
Ответы
Автор ответа:
1
Ответ:
program z1;
var a:array [1..10] of integer;
i,s:integer;
begin
randomize;
s:=0;
write('Массив:');
for i:=1 to 10 do
begin
a[i]:=random(11)-5;
write(a[i]:4);
if a[i] <> 0 then s:=s+a[i]
end;
writeln;
write('Сумма ненулевых элементов массива равна: ',s);
end.
Объяснение:
Сумма вычисляется если условие значение элемента не равно 0 (a[i] <> 0) истинно.
Похожие вопросы
Предмет: Математика,
автор: lantana93
Предмет: Алгебра,
автор: fizerfray
Предмет: Алгебра,
автор: Аноним
Предмет: Русский язык,
автор: geydarova84
Предмет: Окружающий мир,
автор: 2018amalilove10