Program figna ; {это название} var a,b,c,d: integer; {объявление переменных a,b,c и говорим что они целые} begin {начало} writeln('введите три числа'); {запрос чисел} readln(a,b,c); {ввод чисел} d:=a*b*c; {умножаем числа и присваиваем d их значение} if (d<50) then {если произведение чисел меньше 50 то} a:=a*10; {первое число умножаем на десять} b:=b*10; {второе число умножаем на десять} c:=c*10; {третье число умножаем на десять} writeln(a); {выводим первое} writeln(b); {выводим второе} writeln(c); {выводим третье} else {иначе} writeln(d); {выводим произведение} end. {конец} P.S. этот символ { } паскаль не читает и означает он коментарий
Var a,b,c,i,sum,cp:integer; begin sum:=0; cp:=0; Randomize; writeln('Посчитайте сложение:'); while i<10 do begin a:=random(40)+10; b:=random(60)+10; sum:=a+b; write('Сколько будет ',a,'+',b,'= '); read(c); if c=sum then begin cp:=cp+1; writeln('Молодец!'); end else writeln('Неправильно'); i:=i+1; end; writeln('Всего правильных ответов ',cp); write('Оценка:'); if (cp<=4) then write('Очень плохо (2)') else if (cp>=5) and (cp<=6) then write('Удовлетворительно (3)') else if (cp>=7) and (cp<=8) then write('Хорошо (4)') else if (cp>=9) then write('Отлично! (5)'); end.
1)
begin
var mas:=ArrRandom(10,-50,50).println;
println;
var b:=mas.Reverse.println;
end.
2)
begin
var a := ArrRandom(10, -50, 50);
a.Println;
println;
swap(a[a.indexmax], a[a.indexmin]);
$'Максимальный элемент массива = {a.Max}'.Println;
$'Минимальный элемент массива = {a.Min}'.Println;
println;
a.Println;
end.
Подробнее - на -
Объяснение: