Запишите число 288,008 10 тремя разными в форме с плавающей запятой

Question

Информатика: Запишите число 288,008 10 тремя разными в форме с плавающей запятой

irichkagolikova · 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.