<em>1.</em>
var
i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(21)-10;
for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Каждый пятый эелемент массива: ');
for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5);
end.
<span>
</span><em>2.</em>
var
x,i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Натуральные числа в диапазоне [5..10]: ');
for i:=5 to 10 do write(A[i]:5);
writeln;
x:=1;
writeln('Их произведение: ');
for i:=5 to 10 do x:=A[i]*x;
write(x:5);
end.
Const n=100;
var x : array[1..n] of integer;
i,k1,k2 : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(41)-20;
write(x[i],' ');
end;
writeln;
for i:=1 to n do
begin
if x[i]<0 then k1:=k1+1;
if x[i]>0 then k2:=k2+1;
end;
writeln('k1=',k1,' k2=',k2);
end.
Var p,h,e,s,t,x: integer;
begin write('Введите стоимость проезда в 1 сторону: ');
readln(p);
write('Введите стоимость проживания в двухместном номере в сутки: ');
readln(h);
write('Введите стоимость питания в сутки: ');
readln(e);
write('Введите стоимость страховки: ');
readln(s);
write('Введите стоимость трансфера: ');
readln(t);
x:=p*2+h*7+e*7+s+t;
writeln('Стоимость тура = ',x, '$', ' - ', x*34.75, 'руб');
<span>end.</span>
Если таблицу делать в excel то написав в любой ячейке формулу =СУММ(T1*C1;T2*C2;T3*C3;T4*C4;T5*C5;T6*C6;T7*C7;T8*C8;T9*C9;T10*C10;)
=СУММ -это формула суммы в скобках пишем что именно нужно суммировать через точку с запятой, если написать T1*C1 то программа сначала посчитает вам произведение количества на цену, и в самую последнюю очередь выдаст вам общие затраты
Нужно одновременно нажать клавиши Ctrl+Alt+Del