понедельник, 13 ноября 2017 г.

урок 13 ноября

Дан массив из 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,  положительные не меняются.

Комментариев нет:

Отправить комментарий