(Start)
Кто пришел?
Если Саша то - играть в хоккей,
Если Наташа то - идти в кино
Program Z_n;
var a:array[1..10] of byte;
i:byte;
Begin
writeln;
Randomize;
For i:=1 to 10 do begin
a[i]:=random(10);
write(a[i],' ');
if (a[i] mod 2)=0 then a[i]:=a[i]+1;
end;
writeln;
For i:=1 to 10 do
Write(a[i],' ');
end.
Напишите Writeln('P = ', p:0:2);
У Вас результат правильный, просто Турбопаскаль вещественные любит выводить с плавающей точкой.
А) произведение отрицательных элементов с четными номерами
Var
p, s: real;
begin
readln(p);
s:=sqr(p/4);
writeln(s);
end.