Question

Даны натуральное число n и последовательность целых чисел а1, а2,…,аn..Все положительные элементы уменьшить в 2 раза. Составить блок-схему алгоритма, написать программу

Answer 1

var a:array [1..1000] of real;

i,n:integer;

begin

readln(n);

for i:=1 to n do 

if a[i]>0 then a[i]:=a[i]/2;

for i:=1 to n do

writeln(a[i]);

end.

Answer 2

 

Program svwnx90f;
uses crt;
const n = 100;
var
  A:array [1..n] of real;
  i,j:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  Randomize;
  {ввод чисел}
  for i:=0 to 9 do
    for j:=1 to 10 do
      begin
        A[i*10+j]:= Random(101)-50;
        write(A[i*10+j]:7:1,' ');
      end;
  writeln;
  writeln('Положительные элементы уменьшаются в 2 раза... ');
  writeln('Результат:');
  for i:=0 to 9 do
    begin
      for j:=1 to 10 do
        begin
          if A[i*10+j]>0 then A[i*10+j]:= A[i*10+j]/2;
          write(A[i*10+j]:7:1,' ');
        end;
    end;
end.