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.
Процессор, постоянная память, USB-порт, оперативная память
var x1,x2,x3,y1,y2,y3:real;
begin
readln(x1,y1);
readln(x2,y2);
readln(x3,y3);
if (x3-x1)*(y2-y1)=(x2-x1)*(y3-y1) then writeln('lejat na pryamoi') else writeln('ne lejat na pryamoi');
end.
В таблице 5 x 5 имеется 5 строк и 5 столбцов. В <span>каждой строке возможны 4 пары соседних клеток. </span>
В каждом столбце возможны 4 пары соседних клеток.
<span>Всего имеется 4·5+5·4 = 20+20 = 40 соседних клеток. </span>
В <span>них входят соседние пары черных клеток, соседние пары белых клеток и соседние пары разных цветов. </span>
<span>Обозначим искомое число соседних пар белых клеток через x. </span>
<span>По условию </span>
40 = 14+11+x
40=25+ x
<span>х = 15. </span>
Имеется 15 пар соседних клеток белого цвета.
<span>Ответ: 15</span>
<span>д) мне так кажется незнаю почему но мне кажется кинотеатр</span>