Ответ А будет лишним, остальные варианты это пакет office от ms
1) - винчестер
2) - память
Program z;
const n=5;
var a:array[1..n] of real;
i:integer; s:real;
begin
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
for i:=1 to n do
if a[i]>0 then a[i]:=s;
for i:=1 to n do
write(a[i],' ');
end.
Компьютер
Монитор
системный блок
клавиатура
Счастье буз ума - дырявая сума
всякое семя знает своё время
Программа содержит три команды:
01(3)
01(1)
11(3)