<em>1. Современное, короткое и быстрое решение</em>
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(16,-20,80); a.Println;
Writeln('S=',a.Where((x,i)->i.IsOdd).Sum)
end.
<u>Пример</u>
61 64 70 22 76 22 18 44 36 53 29 -9 42 -19 66 34
S=211
<em>2. А вот так все еще учат в большинстве школ (стиль образца 70-80х годов прошлого века)</em>
const
n=16;
var
i,s:integer;
a:array[1..n] of integer;
begin
Randomize;
s:=0;
for i:=1 to n do begin
a[i]:=Random(101)-20;
Write(a[i],' ');
if i mod 2=0 then s:=s+a[i]
end;
Writeln;
Writeln('S=',s)
end.
Основные устройства которые имеет компьютер - системный блок, центральный процессор, монитор, клавиатура, мышь. Дополнительные устройства - принтер, сканер, модем.
Процессор - устройство обработки информации.
<span>Винчестер (жёсткий диск), флешки, дискеты - устройства хранения информации.
</span>
программа здесь: http://rghost.ru/43527025
var chislo, summa, proizv:integer;
begin
summa:=0;
proizv:=1;
repeat
Writeln('Input number: ');
Readln(chislo);
if chislo mod 2 = 0 then summa:=summa+chislo;
if chislo <>0 then proizv:=proizv * chislo;
until chislo=0;
Writeln('a) Sum = ', summa);
Writeln('b) Proizvedenie = ', proizv);
readln;
end.
<span>Вариант 4:по цвету строки с командой</span>
<span>текст,дата,формула,функция,число</span>