Написать программу заполнения и вывода массива из 20 элементов случайными числами и подсчитать их сумму. Помогите пожалуйста, в программировании вообще не шарю...
Когда вижу все эти "шарю", "прога", "позязя", "пжпж" и прочий словесный мусор - никогда не возникает желания что-то делать для такого школопета.
Честно говоря сама не люблю "модные" сокращения от слов, но по другому выразиться не могла. И "школопет" как вы выразились звучит обидно, ладно я но других обижать не надо...
Школопет - это совсем не обязательно школьник и даже не обязательно определенного возраста. Это "состояние души", если хотите. Не могли выразиться по-другому? Шарят по карманам воришки. А в предмете можно не разбираться вообще. либо в какой-то степени.
Какой вы однако не приятный человек...
Видимо Вы и не догадываетесь, что у взрослых Ваше "не шарю" вызывает лишь сочувственную улыбку и соответствующие мысли о незрелости личности.
Специально для вас: не разбираюсь вообще!
Хорошо, если вам так нравиться думать. Если вы считаете неприемлемым подобные сокращения от слов, у вас есть возможность проигнорировать вопрос, а не препираться с автором вопроса.
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.