Помогите написать программу в Паскале и блок-сxему.
10-11 класс
|
Задача: ввести 10 чисел, если число положительное, то от него отнять 0,5, если число отрицательное, то ничего с ним не делать. Вывести результат на экран.
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.
Другие вопросы из категории
делится на 3. Кому сколько лет?
определял и выводил на экран значение силы тока (I=U/R).
Вопрос 1.
На одномернный массив, вывести его в порядочный вид по убыванию!
системы объединение в одном лице функций администратора и аудитора?
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
Найти сумму
1,1-1,2+1,3.......1.n
n- целое, вводится с клавиатуры
13.
Нужно написать программу на цикле с предусловием, на Паскале.
http://primat.org/index/0-128 вот сайт что бы написать программу.