program z1;
const n=8;
var a:array [1..n] of integer;
i,m: integer;
begin
writeln ('Результаты заплыва: ');
for i:= 1 to n do
begin
write(i,'-й: ');
readln(a[i])
end;
writeln;
m:=a[i];
for i:= 1 to n do
if a[i]<m then m:=a[i];
writeln('Лучший: ',m)
end.
program z2;
const n=12;
var a:array [1..n] of integer;
i,m: integer;
begin
writeln ('Массив: ');
for i:= 1 to n do
begin
write(i,'-й элемент: ');
readln(a[i])
end;
writeln;
m:=a[i];
for i:= 1 to n do
if a[i]>m then m:=a[i];
writeln('Максимальный: ',m)
end.
Объяснение:
Сначала вводим элементы массива.
Затем предполагаем, что первый элемент наименьший (1 задача) или наибольший (2 задача). Потом сравниваем элементы массива с переменной, в которую записали первый элемент, и меняем переменную, если условие срабатывает. Выводим результат на экран.
Поделитесь своими знаниями, ответьте на вопрос:
Вкодировке utf-32 каждый символ кодируется 4 байтами. даша написала текст (в нём нет лишних пробелов): «ёрш, скат, окунь, карась, , долгопёр — рыбы». ученик вычеркнул из списка название одной из рыб. заодно она вычеркнул ставшие лишними запятые и пробелы — два пробела не должны идти подряд. при этом размер нового предложения в данной кодировке оказался на 40 байтов меньше, чем размер исходного предложения. напишите в ответе вычеркнутое название рыбы. (подробно )
40 байтов / 4 это кодировка =10 символов
,долгопер (с пробелом) - 10 символов