<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var kp:=a.Where(t->t>0).Count;
var kn:=a.Where(t->t<0).Count;
Writeln('Положительных ',kp,', отрицательных ',kn);
if kp>kn then Writeln('Положитьельныъ больше')
else
if kn>kp then Writeln('Отрицательных больше')
else Writeln('Положительных и отрицательных поровну')
end.
<u>№2</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var (min,max):=(a.Min,a.Max);
Writeln('Минимум ',min,', максимум ',max);
if Abs(min)<Abs(max) then Writeln('Модуль минимума меньше')
else
if Abs(max)<Abs(min) then Writeln('Модуль максимума меньше')
else Writeln('Модули максимума и минимума равны')
end.
Для этого тебе понадобится база данных, например MySQL. В ней ты будешь хранить все контакты по-очереди. На примере веба, могу сказать, что можно использовать php. Создаем основной файл index.html на локальном сервере (с бд и пхп). В нем пишем разметку для ввода контактов и при нажатии на кнопку (submit) - это все дело летит в бд. Адресную книгу можно просматривать с самой бд или сделать отдельный .html файл с данными контактов.
Проще всего хранить данные в xml
Program zadanie (input, output);
var a, b, c:integer;
begin
write ('Введите а: ');
read (a);
write ('Введите b: ');
read (b);
write ('Введите с: ');
read (c);
writeln ('Сумма: ', a+b+c);
writeln ('Среднее: ', (a+b+c)/3);
end.
{с клавиатуры вводится число a, до тех пор, пока не будет введен 0. Начальное введенное a записывается в min и max, чтобы потом в цикле было с чем сравнивать}
var
min,max,a:real;
begin
readln(a);
min:=a;max:=a;
while a<>0 do
begin
readln(a);
if a>max then
max:=a;
if a<min then
min:=a;
end;
writeln('min: ',min,' max: ',max);
<span>end.</span>