Написать программу в паскале и блок-сxему. : ввести 10 чисел, если число положительное, то от него отнять 0,5, если число отрицательное, то ничего с ним не делать. вывести результат на экран.

terteryanmarin terteryanmarin    2   04.06.2019 09:00    2

Ответы
АнютаП1 АнютаП1  01.10.2020 19:12
Var a,b,i: real;
begin
b:=0,5;
for i = 1 to 10 do
begin
readln (a);
if a<0 then
writeln (a)
else
a:=a-b;
writeln (a);
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика