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

Написать программу заполнения и вывода массива из 20 элементов случайными числами и подсчитать их сумму. Помогите пожалуйста, в программировании вообще не шарю...


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

Ответы

Автор ответа: matveypourov
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.


Похожие вопросы
Предмет: Математика, автор: wyrtnwvw
Предмет: Математика, автор: perfect39
Предмет: Физика, автор: petyayaminovic