Помоему так...
const n=10;
var a:array[1..n] of integer; i,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((i mod 2) = 0) then
a[i]:=a[i]*2
else
a[i]:=a[i]*3;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
<span>end.</span>
А) TIFF. Объем<span> файлов в </span>TIFF формате<span> значительно превосходит </span>объем<span> файлов в </span>формате<span>JPEG (в восемь-десять раз).</span>
64 возможно, но это не точно
<span>(50-20)х(30-10)=30х20</span>
если не сосем тю-тю то должны понять)
Я думаю, это программа для демонстрационного набора слайдов, подготовленных на компьютере.