Предмет: Информатика,
автор: Arinatum1
Написать программу заполнения и вывода массива из 20 элементов случайными числами и подсчитать их сумму. Помогите пожалуйста, в программировании вообще не шарю...
Аноним:
Когда вижу все эти "шарю", "прога", "позязя", "пжпж" и прочий словесный мусор - никогда не возникает желания что-то делать для такого школопета.
Ответы
Автор ответа:
1
Const N = 20;
Var i, k:integer; m:array [1 ... N] of integer;
Begin
randomize;
for i:=1 to N do begin
m[i]:=random (101) - 50;
writeln (m[i]) ;
end;
for i:=1 to N do
if m[i] mod 2 0 then
inc (k) ;
writeln ('Kol-vo netchetnih = ', k) ;
readln;
end.
Похожие вопросы
Предмет: Биология,
автор: lililisad
Предмет: Математика,
автор: wyrtnwvw
Предмет: Математика,
автор: perfect39
Предмет: Математика,
автор: gorpeniuc
Предмет: Физика,
автор: petyayaminovic