Забыл еще объявить массив х, нужно написать array of integer.
1. cat.jpeg, foto.bmp, dog.gif, song.eps, war.wmf.
2. NIKITA\IVAN\fizik.jpeg.
NIKITA\PETR\ANNA\air.bmp.
3. 1029 байтов = 1029 * 8 = 8232 бита.
байтов =
бит = 262144 бит.
512 кбайт = 512 *
бит.
1010 байтов = 1010 * 8 = 8080 бит.
2 байта = 2 * 8 = 16 бит.
20 битов.
10 битов.
10 битов < 16 битов < 20 битов < 8080 битов < 8232 битов < 262144 битов < 4194304 битов.
10 битов < 2 байта < 20 битов < 1010 байтов < 1029 байтов <
байтов < 512 кбайт.
За 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.
Var p, q: longint;
n, i, j, c: integer;
begin
// 1
write('n=');readln(n);
for i := 1 to n do begin
q := 1;
for j := 1 to i do q := q * i;
p := p + q;
end;
writeln ('Значение = ', p);
// 2
write('Число годовых оценок=');readln(n);
p:=0;
for i := 1 to n do begin
write('оценка: '); readln(c);
if c = 5 then p := p + 1
else if c = 2 then p := - 1;
end;
writeln(p > 0);
// 3
n := 20; p := MaxInt;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c < p then p := c;
end;
writeln('Минимальная высота: ', p);
//4
n := 20; p := -1;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c > p then p := c;
end;
writeln('Максимальное значение высоты: ', p);
<span>end.</span>