Соператора readln,writlen,random составить программу которая будет сравнивать число вводимое с клавиатуры со случайным числом в диапазоне от 0 до 100 результат выводится на экран.
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var a:=ArrRandom(10,-20,20); a.Println; Writeln('Сумма элементов ',a.Sum); Writeln('Произведение элементов ',a.Aggregate(1,(m,n)->m*n)); Writeln('Сумма четных чисел ',a.Where(x->x.IsEven).Sum); end.
Пример 13 18 9 -4 -13 5 -9 1 16 -5 Сумма элементов 31 Произведение элементов 394243200 Сумма четных чисел 30
Задание 4
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var a:=ArrRandom(ReadInteger('N='),-20,20); a.Println; Writeln('Максимальный элемент A[',a.IndexMax+1,']=',a.Max); Writeln('Минимальный элемент A[',a.IndexMin+1,']=',a.Min); end.
Пример N= 13 12 7 13 8 -19 -19 -2 3 11 8 -3 -1 3 Максимальный элемент A[3]=13 Минимальный элемент A[5]=-19
program first;
var a,b: integer;
begin
randomize;
{Получаем значение с клавиатуры}
readln(a);
{Выбираем случайное число}
b:= random( 100);
writeln(b);
{Сравниваем данные значения}
if a = b then writeln('Данные числа равны')
else if a > b then writeln('Первое число больше второго')
else if b > a then writeln('Первое число меньше второго');
end.