Во вложении
--------------------------------
Program Min5
var array A[1..5] of real
var i, k : integer
var min : real
BEGIN
for i := 1 to 5 do readln (A[i]); // Вводим массив
k := 1; min := A[1]; // Начальные значения мин. эл-та и его номера
for i := 2 to 5 do
begin
if A[i] < min then // Если элемент меньше минимального
begin
min := A[i]; // Устанавливаем новый минимальный элемент
k := i; // И запоминаем его номер
end;
end;
writeln ('A[', k, '] = ' min'); // Выводим минимум и его номер
END.
не понимаю что значит "четность тела". скорее всего вы имели ввиду четность числа. вот прога:
var a: integer;
begin
read(a);
if a mod 2=0 then write('четно')
else write('не четно');
end.
Ответ:
1. изменить кодовую страницу
2. ASCII каждый символ занимает 1 байт, поэтому можно закодировать максимум 256 различных символов. Для отображения всех алфавитов разработан Unicode
3. В китайском языке количество иероглифов превышает 256 (смотри вопрос №2)
Объяснение:
1) Стиральная машина, 2)Холодильник, 3) Проигрыватель, любое техническое устройство. Человек не является формальным исполнителем. Но возможно. если он выполняет работу на конвеере