Выберите из списка только актуальную информацию. Если вы являетесь выпускником 11 класса и впереди у - id1487613720200324 от zhutovaanneta 24.03.2020 14:16

Question

Информатика: Выберите из списка только актуальную информацию. Если вы являетесь выпускником 11 класса и впереди у вас экзамены.​

zhutovaanneta · Accepted Answer

1.

var

A: array [1..10] of integer;

max, i: integer;

begin

for i:=1 to 10 do // заполнение массива

A[i] := random(100) - 50;

max := -51;

for i:=1 to 10 do // обработка массива

if (A[i] < 0) and (A[i] > max) then

max := A[i];

writeln(max);

end.

2.

var

A: array [1..1000] of integer;

kol, i, N: integer;

begin

readln(N);

for i:=1 to N do // заполнение массива

A[i] := random(100) - 50;

for i:=1 to N do // обработка массива

if A[i] mod 2 = 0 then

inc(kol);

writeln(kol);

end.

Выберите из списка только актуальную информацию. Если вы являетесь выпускником 11 класса и впереди у вас экзамены.​