If <условие> Then<оператор_1> Else <оператор_2>; При выполнении условия программа оператор_1,при не выполнении условия,оператор_2. Условный оператор в общем случае If <условие> Then <группа операторов 1> end Else Begin <группа операторов 2> end; Перед Else точка с запятой не ставится никогда! Пример программы Programm Example; Var A,B,C:Real; {a,b-переменные для хранения аргументов, с-результат} Begin Writeln('Введите два числа'); Readln(A,B); if A>B Then C:=A Else C:=B; Writeln('Наибольшая из чисел = ' , C); Readln; {задержка экрана} End.
// PascalABC.NET 3.2, сборка 1482 от 12.06.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var a:=MatrRandom(3,4,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.ElementsWithIndexes.Where(z->z[0]<0); if s.Count=0 then Writeln('Нет отрицательных элементов') else begin Write('Отрицательные элементы: '); s.Select(x->Format('a[{0},{1}]',x[1]+1,x[2]+1)).Println end end.
(74+86)-96=64 человека знали оба языка