var a: array[1..20] of integer;
i: integer;
k: integer;
begin
randomize;
for i:= 1 to 20 do a[i] := random(100) + 1;
k := 0;
for i:= 1 to 20 do begin
writeln(a[i]);
if a[i] > 50 then inc(k);
end;
writeln();
writeln(k);
end.
Вроде так. дальше протяжку сделайте и все
Ну решение будет такой а с б ж сж+аб=сжаб ответ будет сжаб
1) программа пропускает если ввести пароль basic иначе так и продолжает его спрагивать
2) запрашивает число, выводит его квадрат и куб через табуляцию, выводит его куб и квадрат прям без пробелов одним числом
выводит его куб и квадрат с текстовыми пояснениями
3) 5 линий слева направа нисходящие
4) 3 точки и 3 линии, одна вертикальная одна слева направа восходящая и из последней ее точки в в лево линия
5) построится подобие координатной плоскости и синусоида но точками и для угла от -10 до 10 радиан с шагом 0.01
Элементы a, b, c
Если a>b, то (если а>c, то a=max, иначе c=max), иначе (если b>c, то b=max, иначе c=max)