CPU (Central Processing Unit) - Центральный процессор
RAM (Random Access Memory) - Оперативная память
HDD (Hard Disk Drive) - Жесткий диск
Video Card - Видеокарта
Sound Card - Звуковая карта
Вроде бы пары надо было составить.
Ответ:
for i in range(10, 99, 2):
Sum= Sum+i
Print(Sum)
Var
a: integer;
t,s: boolean;
begin
t := true;
read(a);
s := a > 0;
if a <> 0 then
read(a);
while t and (a <> 0) do
begin
t := (a > 0) <> s;
s := not s;
read(a)
end;
writeln(t)
end.
Const n = 10;
var b: Integer;
var a: array[1..n] of integer;
begin
for var i := 1 to n do
begin
Read(a[i]);
b+=a[i];
end;
Writeln(b/n);
end.
Если М это переменная,хранящая номер максимального элемента, то фрагмент программы получится следующий
Ваше условие(if X[k]>X[M] then )
M = k
Пояснение:
если X[k](текущий) больше, чем Х[M](максимального элемента) то
М = к: присвоить М значение К, т.е. назначить Х[k] максимальным.