Дан массив из 5
элементов, составить программу, которая заменят положительные на 100, а
отрицательные числа на -1.
Program efh;
var B:array [1..5] of integer;
i:integer;
Begin
for i:=1 to 5 do
read(B[i]);
for i:=1 to 5 do
if B[i]> 0
then B[i]:=100
else B[i]:= -1;
for i:=1 to 5 do
writeln('B[i]=', B[i]);
end.
Дан массив из 5
элементов, составить программу, которая заменят отрицательные числа на
0, положительные не меняются.
Комментариев нет:
Отправить комментарий