Цветок - цветок,хорошо пахнет,растение,?цвета,?листов.
PascalABC.NET 3.2:
begin
Println('Исходный массив:');
var A := ArrRandom(30, -50, 50).Println;
var m := A.Max;
Println('Максимум равен', m);
Println('Изменённый массив:');
A.Select(x -> x + m).Println;
end.
Пример вывода:
Исходный массив:
-47 -34 -25 -42 -38 38 -32 42 21 -25 9 -41 -49 9 12 -3 37 38 20 -36 -42 42 37 6 37 -41 -44 -19 23 8
Максимум равен 42
Изменённый массив:
-5 8 17 0 4 80 10 84 63 17 51 1 -7 51 54 39 79 80 62 6 0 84 79 48 79 1 -2 23 65 50
1 - истина
0 - ложь
a=1
b=0
c=1
--------------------------
1) a*b=0
2) a+b=1
3) НЕa+b=0
4) a*b+c=1
5) a+b*c=1
6) НЕa+b*c=0
7) (a+b)*(c+b)=1
8) НЕ(a+b)*(c+b)=НЕa*НЕb*(c+b)=0
9) НЕ(a*b*c)=НЕa+НЕb+НЕc=1
1) Больше картинок, фото.
2) Меньше текста (напечатать на листке отдельно и читать)
3) Цвет текста должен хорошо выделяться.
4) Не делайте текст меньше 12 размера. Так он будет невиден с задних парт.
5) Распределите текст по слайдам, не пытайтесь вмещать много информации на один слайд.
var n,n1,i: integer;
<span>begin
</span><span> write('N = '); readln(n);
</span><span> if n mod 2=0 then i:=2
</span><span> else i:=1;
</span><span> n1:=1;
</span><span> repeat
</span><span> n1:=n1*i;
</span><span> i:=i+2;
</span><span> until i>n;
</span><span> writeln('N1 = ',n1);
</span><span>end.
</span>N = 6N1 = 48
N = 5N1 = 15
<span>
</span>