Предмет: Информатика, автор: Levuhka

Напишите программу, которая заполняет массив из 10 элементов случайными целыми числами на отрезке [–5; 5] и находит сумму ненулевых элементов массива. СРОЧНО!!!!!​


03090d: Через минут 20 будет готово
Levuhka: хорошо спасибо!!!!
Levuhka: жду
03090d: Оно работает!
Levuhka: это wing?
Levuhka: спасибо огромное!!!!!

Ответы

Автор ответа: nastikots
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) истинно.


Levuhka: харош только это паскаль а мне нужен питон
nastikots: Отлично, но об этом нужно сообщать до, а не после )
Levuhka: а стоп я не написал......а00ахахах ссор
Похожие вопросы
Предмет: Математика, автор: lantana93