Дано целое число, если оно является положит, то вычесть из него 10, или отриц, то прибавить к нему 8, или 0 то заменить его на 6. нужно сделать программу по этому . паскаль

Лови:
begin
var num:integer; //Создаем переменную для хранения числа
readln(num); //Считываем число
if (num > 0) then num := num - 10 //Если > 0
else if (num < 0) then num := num + 8 //Если < 0
else num := 6; //Если = 0
writeln(num); //Выводим
end.
Пример:
Ввод: 15
Вывод: 5

Ввод: -8
Вывод: 0

Ввод: 0
Вывод: 6
...
Если не сложно нажми " " ;)

В данном случае источником информации можно рассмотреть как Себя так и телефон. Если Я источник информации, то кодирующим устройством будет телефон, каналом связи - электромагнитные волны, декодером - телефон друга, приемником - друг.

Если же передачиком будет мой телефон, то кодировщиком - плата телефона, каналом связи так же - электромагнитные волны, декодировать будет плата телефона друга, а приемником тогда будет телефон друга.

Может немного сумбурно, но посмортрите, как Вы разбирали на уроках и выберите нужный ответ.

 

1)

Program Pr1;
uses crt;
const n=15;
var mas:array[1..n] of integer;
j,i,h,k:integer;
Begin
clrscr;
randomize;
for i:=1 to n do mas[i]:=random(10);
k:=0;
for i:=1 to n do write(mas[i]);
for i:=1 to n div 2 do begin
h:=mas[n-k];
mas[n-k]:=mas[i];
mas[i]:=h;
k:=k+1;
end;
writeln;
for i:=1 to n do write(mas[i]);
end.

2)

Program Pr1;
uses crt;
const n=20;
var mas:array[1..n] of real;
i,k:integer;
Begin
clrscr;
for i:=1 to n do begin
writeln('vvedite ',i,'-oe chislo');
readln(mas[i]);
end;
k:=0;
for i:=1 to n do if mas[i]>0 then k:=k+1;
writeln(k);
end.

 

3)

Program Pr1;
uses crt;
const n=20;
var mas:array[1..n] of integer;
i,k:integer;
Begin
clrscr;
randomize;
for i:=1 to n do mas[i]:=random(10);
for i:=1 to n do if i mod 2=0 then mas[i]:=8;
for i:=1 to n do write(mas[i]);
end.

 4)

Program Pr1;
uses crt;
const n=20;
var mas:array[1..n] of integer;
mas2:array[1..n] of integer;
mas3:array[1..n] of integer;
i:integer;
Begin
clrscr;
randomize;
for i:=1 to n do begin
mas[i]:=random(10);
mas2[i]:=random(10);
end;
for i:=1 to n do write(mas[i]);
writeln;
for i:=1 to n do write(mas2[i]);
for i:=1 to n do if mas[i]<mas2[i] then mas3[i]:=mas[i]
else mas3[i]:=mas2[i];
writeln;
for i:=1 to n do write(mas3[i]);
end.