Информатика, опубликовано 2018-08-22 23:42:22 by Гость

Дан массив из 20 вещественных чисел заполненный случайным образом.Вывести на печать те эементы , которые меньше 0.5

Ответ оставил Гость

Var i: byte;
a: array [0..19] of real;
begin
for i := 0 to 19 do
begin
a[i] := random(100) / 50;
writeln([, i, ] => , a[i]);
end;
writeln(-----------------);
for i := 0 to 19 do
if (a[i] , a[i]);
end.

=)

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.