по имеющейся схеме создайте словесное описание упр 145 в Рабочей тетради даю 20 б (так как я сижу с - id1694239820220526 от valeriyaa17 26.05.2022 02:11

Question

Информатика: по имеющейся схеме создайте словесное описание упр 145 в Рабочей тетради даю 20 б (так как я сижу с пк не будет картинки)

valeriyaa17 · Accepted Answer

var

i: Integer;

l: Single;

counter: Integer;

begin

counter := 0;

for i := 0 to 14 do begin

Read(l);

if l >= 165 then

counter := counter + 1 ;

end;

Writeln(counter);

end.

Второй вариант

const

cN: Integer = 15;

cMinSuitableLength: Single = 165;

var

arr: array [0..14] of Single;

i, counter: Integer;

begin

for i := 0 to Length(arr) - 1 do

Read(arr[i]);

counter := 0;

for i := 0 to Length(arr) - 1 do

if arr[i] >= cMinSuitableLength then

counter := counter + 1;

Writeln(counter);

end.

Объяснение:

по имеющейся схеме создайте словесное описание упр 145 в Рабочей тетради даю 20 б (так как я сижу с пк не будет картинки)