15 ! дано высказывание. выбери высказываете, которое является отрицанием данного высказывания. «вова - id1058705420230520 от Ученик0005205 20.05.2023 05:26

Question

Информатика: 15 ! дано высказывание. выбери высказываете, которое является отрицанием данного высказывания. «вова решил все контрольной работы.» 1) не вова решил все контрольной работы. 2) вова не решил по биологии. 3) неверно, что вова решил все контрольной работы.

Ученик0005205 · Accepted Answer

Const
n = 10;

var
a,b: array[1..n] of integer;
i, s, imax, smax: integer;

begin
Randomize;
Writeln('Элементы массива A');
for i := 1 to n do
begin
    a[i] := Random(30)+5;
    Write(a[i]:3);
end;
Writeln;
smax:=0; imax:=0;
Writeln('Элементы массива B');
for i := 1 to n do
begin
    b[i] := Random(30)+5;
    Write(b[i]:3);
    s:=a[i]*b[i];
    if smax<s then begin imax:=i; smax:=s end
end;
Writeln;
Writeln('Прямоугольник номер ',imax,' имеет максимальную площадь ',
    a[imax],'x',b[imax],'=',smax)
end.

Тестовое решение:
Элементы массива A
31 30 34 9 12 11 11 24 34 29
Элементы массива B
18 16 15 16 19 22 24 22 25 5
Прямоугольник номер 9 имеет максимальную площадь 34x25=850

MOGZ ответил