Var a:array [1..12] of integer;
i,sum:integer; 
begin 
sum:=0; 
randomize; 
for i:=1 to 12 do begin 
a[i]:=random(10,99); 
if a[i] mod 2 =0 then sum:=sum+a[i]; 
end; 
writeln('Сумма четных чисел массива = ',sum); 
end.

0 0

3 года назад

Прочитать ещё 2 ответа

1)помогите пожалуйста написать сочинение на тему: где и как используют компьютер на производстве?2)зарание спасибо!

Вадим Петкевич [21]

Компьютеры очень важны в наше время.Ни один завод,не одна фабрика,ни одна фирма не обходится без компьютера.Сами компьютеры не смогут создавать без компьютеров.На заводах и фабриках всегда делают подсчеты с помощью компьютера и сохраняют на них данные . На фирмах сохраняют документы с помощью компьютера .Даже ни один большой магазин или супермаркет не может обойтись без компьютера. Итог :в наше время невозможно жить без компьютеров.

0 0

4 года назад

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

sherstkova

Упростим...
$\displaystyle (x_1x_2)x_2+\overline{x_2+\overline{(x_1x_2)x_2}}=x_1x_2+\overline{x_2}(x_1x_2)=x_1x_2 = x_1\&x_2$

0 0

4 года назад

Минимальным объектом, используемым в текстовом процессоре Microsoft Word, является: *

Муштрук [7]

Минимальным объектом, используемым в текстовом процессоре Microsoft Word, является: символ

0 0

4 года назад