1) какой то вопрос неполный, ну может комнатами))
Var
str : string;
i,c,a,count : integer;
begin
i:=1;
count :=0;
writeln('Вводите числа, как только введете все числа нажмите любую букву');
while i=1 do begin
readln(str);
val(str,a,c);
if ( a mod 2 <>0) then count := count +a;
if(c<>0) then i:=0;
end;
writeln('Сумма нечетных чисел = ', count);
<span>end.</span>
uses Crt;
const n=10;
Type Mas=array [1..n] of integer;
var P, M: Mas;
i: integer;
begin
ClrScr;
for i:=1 to n do
P[i]:=10+random(20);
for i:= 1 to n do
Write (P[i]:4);
WriteLn; WriteLn;
for i:=1 to n do
if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i];
for i:=1 to n do
Write (M[i]:4);
ReadLn;
end.
Первый вопрос:
<span>1)Windows Commander </span>
<span>2)FAR manager </span>
4)Norton Commander
Второй вопрос:
<span>3)Принцип логической структуры</span>