Var
a: array [1..5,1..5] of Integer ;
i,j,min:Integer;
begin
Writeln('Заполните массив');
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
Read(a[i,j]);
end;
WriteLn();
end;
min:= a[1,1];
for i:=1 to 5 do
for j:=1 to 5 do
if a[i,j] < min then min:=a[i,j];
WriteLn('Минимальный элемент равен ', min);
end.
Пишу на BASIC:
CLS
SCREEN 12
FOR I = -1 TO 1 STEP 0.1
Y = 1 / I + 2
PRINT Y
NEXT
Сколько живут собаки? Какова продолжительность жизни, выбранной нами породы?
Этими вопросами задаются все любители собак. К сожалению собаки живут не так долго, как нам бы того хотелось. Средняя продолжительность жизни собак зависит от породы. И здесь закономерно правило, что, чем больше собака по размеру, тем меньше ей отмерено лет жизни.
Вот данные о продолжительности жизни собак некоторых пород, которые подтверждают вышесказанное:
Стаффордширские терьеры живут около 13 лет;
Английские бульдоги - 8-10 лет;
Английских спаниели - 10-14 лет;
Аргентинские доги - 13-15 лет;
Бассеты - 9-11 лет;
Боксеры - 10-12 лет;
Болонки - 18-20 лет;
Большие пуделя - 15-17 лет;
Бордосские доги - 7-8 лет;
Западно-сибирские лайки - 10-14 лет;
Йоркширские терьеры живут 12-15 лет;
Кавказские овчарки живут - 9-11 лет;
Мопсы живут- 13-15 лет;
Немецкие доги живут - 7-8 лет;
Немецкие овчарки живут - 10-14 лет;
Ротвейлеры живут - 9-12 лет;
Таксы живут - 12–14 лет;
Той-терьеры - 12-13 лет;
Чихуа-хуа живут 15–17 лет;
Эрдельтерьеры - 10-13 лет.
Файл размером 20 кбайт передается через некоторое соединение со скоростью 1024 бит в секунду то есть за 20 секунд. Значит со скоростью 2048 бит он передастся в 2 раза быстрее то есть время передачи 10 секунд