ГLCHIации. Вода - источник жизни»
ВСТАВКА ФИГУР В ПРЕЗЕНТАЦИЮ
3. В таблице
Найди эти
1. Рассмотри рисунок. Найди лишнее окно, которое не при
программе PowerPoint.
6
ә) Рів)
Голая Встанадай
2 Macer
Baatar
Восстанок
con
сайд Ради
Буфер 06 г.
Cale

од радоса е оборгоо
Озеро Баата-анальное
енге Аграас олоор
де
Озеро Баа-укарное лече проем
Becctowe nary peo NOE SOCIO NORS
Каста аеро акта гори по лине
непереохон солён азером после
Контрарам ское са круна
адреса
рассо
tе аn
4. Заполни
На казахск
| Безендіру
2. Рассмотри и напиши алгоритм создания слайда.
Көшіру
Геометрические фигуры
5. Раскрась
Облака
Пятиугольник
ТреугоЛЬНИК
Рыба, состоящая из
геометрических фигур.
Прямоугольник​

Program ;
var  min_e, max_e,  count, i, j, otn: integer;  a: array[1..5, 1..7] of integer;  srednee: real;
begin  for i := 1 to 5 do   begin    writeln;    for j := 1 to 7 do a[i, j] := Random(81);  end;  max_e := 1;  min_e := 81;  srednee := 0;  for i := 1 to 5 do     for j := 1 to 7 do     begin      if a[i, j] < min_e then min_e := a[i, j];      if a[i, j] > max_e then max_e := a[i, j];      if a[i, j] mod 5 = 0 then      begin        srednee := srednee + a[i, j];        count := count + 1;      end;    end;  otn := max_e div min_e;  srednee := srednee / count;      for i := 1 to 5 do   begin    writeln;    for j := 1 to 7 do write(a[i, j]:3);  end;  writeln;  writeln(min_e, ' ', max_e, ' ', otn, ' ', srednee);end.

Var x1, x2, y1, y2: integer;
O: boolean;
begin       
write('X1: ');       
readln(x1);       
write('Y1: ');       
readln(y1);       
write('X2: ');       
readln(x2);       
write('Y2: ');       
readln(y2);       
if (x1 < 0) and (x2 < 0) and (y1 < 0) and (y2 < 0) then O:=true;       
if (x1 < 0) and (x2 < 0) and (y1 > 0) and (y2 > 0) then O:=true;       
if (x1 > 0) and (x2 > 0) and (y1 > 0) and (y2 > 0) then O:=true;       
if (x1 > 0) and (x2 > 0) and (y1 < 0) and (y2 < 0) then O:=true;       
if O = true then write('TRUE')       
else write('FALSE');
end.