Program Bid;
Uses crt;
var a,b,max:integer;
begin
write(' Введите целое число a=');
readln(a);
write(' Введите целое число b=');
readln(b);
if a>=b then max:=a
else max:=b;
writeln('Max=',max);
end.
Задание 2:Program Text;
var x:integer;
begin
write('Введите цифру 1 или любую :');
readln(x);
if x=1 then write(' В а с я')
else write(' П е т я');
end.
Задание 3:Program Text;
var x:integer;
begin
write('Введите цифру 1, 2 или любую :');
readln(x);
if x=1 then write(' В а с я')
else if x=2 then write(' П е т я')
else write('ERROR');
end.
Задание 4:Program MaxFrom3;
begin
writeln('Введите 3 числа: ');
var (a, b, c) := ReadInteger3;
write('Наибольшее число: ', Max(a,b,c));
end.
i, j, n, kolPol, kolOtr, sum, p, ch, k :integer;
a :array of integer;
begin
readln(n);
SetLength(a,n+1);
randomize;
for i:= 1 to n do
a[i]:= random(100)-50;
sum:= 0; p:= 1;
for i:= 1 to n do
begin
if a[i] > 0 then
begin
inc(kolPol);
sum:= sum + a[i];
end;
if a[i] > 0 then
begin
inc(kolOtr);
p:= p * a[i];
end;
end;
writeln('Количество положительных элементов: ',kolPol);
writeln('Сумма положительных элементов: ',sum);
writeln('Количество отрицательных элементов: ',kolOtr);
writeln('Произведение отрицательных элементов: ',p);
i:= 1; p:= 1; ch:= 0;
while (a[i] >= 0) and (i <> n+1) do
begin
p:= p * a[i];
inc(ch);
inc(i);
end;
if ch <> 0 then
writeln('Произведение до первого отрицательного элемента: ',p)
else
writeln('Первый элемент массива отрицательный!');
for i:= 1 to n-1 do
for j:= 1 to n-i do
if a[j] > a[j+1] then
begin
k:= a[j];
a[j]:= a[j+1];
a[j+1]:= k;
end;
writeln('Массив отсортирован по возрастанию:');
for i:= 1 to n do
write(a[i],' ');
end.