Для какого наибольшего целого неотрицательного числа A выражение (y >х- A) \/ (x>y-A) \/ (x · y <90) тождественно истинно при любых целых неотрицательных x и y?
Program P1; var a: array [1..50] of integer; {Переменная а - одномерный массив в 50 элементов}; S, I : integer; {Переменная S - сумма элементов, I - счетчик цикла} begin randomize; {включаем генератор случайных чисел}; S:=0; {Обнуляем значение суммы} for I:=1 to 50 do {цикл в 50 повторений} begin a[i]:=random(201) - 100; {формируем 50 элементов массива случайным образом в интервале [-100;100]} S:=S+a[i]; {Добавляем каждый элемент к значению суммы} end; wrilteln('Сумма всех элементов ', S); {выводим значение суммы} end;
var
a: array [1..50] of integer; {Переменная а - одномерный массив в 50 элементов};
S, I : integer; {Переменная S - сумма элементов, I - счетчик цикла}
begin
randomize; {включаем генератор случайных чисел};
S:=0; {Обнуляем значение суммы}
for I:=1 to 50 do {цикл в 50 повторений}
begin
a[i]:=random(201) - 100; {формируем 50 элементов массива случайным образом в интервале [-100;100]}
S:=S+a[i]; {Добавляем каждый элемент к значению суммы}
end;
wrilteln('Сумма всех элементов ', S); {выводим значение суммы}
end;
var
a: array[1..20, 1..20] of integer;
n, m, i, j, jm: integer;
begin
randomize;
writeln('Введите количество строк и столбцов соответственно: ');
readln(n, m);
writeln('Сгенерированная матрица: ');
for i := 1 to n do
begin
jm := 1;
for j := 1 to m do
begin
a[i, j] := random(99);
write(a[i, j]:4);
if (i mod 2 = 0) and (a[i, jm] > a[i, j])
then jm := j;
end;
if i mod 2 = 0 then write(' min=a[', i, ',', jm, ']=', a[i, jm]);
writeln;
end;
readln;
end.