Номер 1
const
D: array[1..7] of string = ('Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday');
var
day: longint;
begin
writeln('Введите номер дня.');
readln(day);
writeln(D[day]);
end.
Поскольку неясно, что делать, если в массиве несколько минимальных или максимальных элементов, то считаем, что их только по одному.
const n=10;
var
a: array[1..n] of integer;
mn,mx: integer;
i,k1,k2: byte;
begin
mn:=maxint;
mx:=-maxint;
writeln ('Введите ',n,' чисел: ');
for i:=1 to n do begin;
read (a[i]);
if a[i]<mn then begin mn:=a[i]; k1:=i end;
if a[i]>mx then begin mx:=a[i]; k2:=i end;
end;
for i:=1 to n do
if (i>min(k1,k2)) and (i<max(k1,k2)) then a[i]:=0;
writeln;
writeln ('Местоположение минимального элемента: ',min(k1,k2));
writeln ('Местоположение максимального элемента: ',max(k1,k2));
writeln;
print (a);
end.
--------------------------------------------
Пример:
Введите 10 чисел: 5 2 9 4 6 8 2 1 3 7
Местоположение минимального элемента: 3
Местоположение максимального элемента: 8
5 2 9 0 0 0 0 1 3 7
Извиняюсь, а что такое "Черепашка"?
65536 символов это 2^16, значит 16 бит на символ, 16 бит это 8*2 = 2 байта
Всего символов в тексте 16 стр * 30 строк * 32 символа = 15360
Значит в байтах текст занимает 2*15360 = 30720 байт = 30 кбайт
3.Пассажир Иванов живет в Москве, однофамилец проводника - в Санкт-Петербурге, проводник -посередине между двумя этими городами. У пассажира, живущего там же где и проводник, четное число детей; значит это не петров, а Сидоров. Следовательно, фамилия проводника - Петров.
Вывод: фамилия машиниста- Иванов.
2.Моисеев - литератор
Потапов - юрист
Ефимов - инженер
Дмитриев - капитан
Алексеев - биолог
Осипов - физик
