Ольга 28 ноября 2019 в 05:58
Вывести на экран дисплея номера элементов массива, удовлетворяющих условию 0 <хi<3,2
Вывести на экран дисплея номера элементов массива, удовлетворяющих условию 0 <хi<3,2
Var i,n:integer;x:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
readln(x[i]);
fvor i:=1 to n do
if (x[i]gt;0) and (x[i]lt;3.2) then writeln(i);
end.
begin
readln(n);
for i:=1 to n do
readln(x[i]);
fvor i:=1 to n do
if (x[i]gt;0) and (x[i]lt;3.2) then writeln(i);
end.
Компьютеры и вычисления
264
0
Для комментирования необходимо зарегистрироваться на сайте