Написать программу в паскале и блок-сxему. : ввести 10 чисел, если число положительное, то от него отнять 0,5, если число отрицательное, то ничего с ним не делать. вывести результат на экран.
Var ma:array of array of integer; i,j,n,r:integer; begin readln(n); setlength(ma,n+1); for i:=1 to n do setlength(ma[i],n+1); writeln('Matrix:'); for i:=1 to n do begin writeln; for j:=1 to n do begin ma[i,j]:=random(n); write(ma[i,j]:4); end; end; for i:=1 to n do for j:=i+1 to n do r:=r+ma[i,j]; r:=r div 3; writeln; if odd(r) then writeln('Да') else writeln('Нет'); end.
Var ma:array of array of integer; i,j,n,r:integer; begin readln(n); setlength(ma,n+1); for i:=1 to n do setlength(ma[i],n+1); writeln('Matrix:'); for i:=1 to n do begin writeln; for j:=1 to n do begin ma[i,j]:=random(n); write(ma[i,j]:4); end; end; for i:=1 to n do for j:=i+1 to n do r:=r+ma[i,j]; r:=r div 3; writeln; if odd(r) then writeln('Да') else writeln('Нет'); end.
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.