Задачи в free Pacal and ABC Pascal

[Риналь]

ну получается решить задачи в паскале

[paravoz1k]

совет - с таким подходом вам никто не поможет, нужны как минимум свои наработки.

[Риналь]

Сообщение от paravoz1k

совет - с таким подходом вам никто не поможет, нужны как минимум свои наработки.

\

Решение к задаче №11

var
n,m,col:longint;

begin
write('N= '); read(n);
write('Cifra: '); read(m);
while(n<>0) do begin
if n mod 10>m  then inc(col);
n:=n div 10;
end;
writeln('Rezultat: ', col);
end.

слушай правильно ли if n mod 10>m then inc(col);?????

Решение задачи № 17
ПРОВЕРЬТЕ пожалуйста

program zad17;
Uses CRT;
Var a:array[1..100] of integer;
    i,n,j:byte;
    buf:integer;
begin
repeat
 readln(n);
until n in [1..100];
randomize;
for i:=1 to n do
begin
 a[i]:=random(20)-3;
 if (a[i]>0) and (i mod 2<>0) then textcolor(5)
 else textcolor(0);
 write(a[i]:3);
end;
for i:=1 to (n div 2+n mod 2)-1 do
for j:=i+1 to (n div 2+n mod 2) do
if (a[i*2-1]>0) and (a[j*2-1]>0) and (a[i*2-1]>a[j*2-1]) then
begin
 buf:=a[i*2-1];
 a[i*2-1]:=a[j*2-1];
 a[j*2-1]:=buf;
end;
writeln;
for i:=1 to n do
begin
 if (a[i]>0) and (i mod 2<>0) then textcolor(5)
 else textcolor(0);
 write(a[i]:3);
end;
readln;
end.

[BDA]

Во-первых, код положено оформлять с помощью кнопочки #.
Во-вторых, непонятно, зачем в 11 задаче дана длина числа.
11 задача:

var
  n: longint;
  count: integer;

begin
  write('Number: ');
  readln(n);
  count:=0;
  while(n <> 0) do 
  begin
    if odd(n mod 10) then inc(count);
    n := n div 10;
  end;
  writeln('Count of odd digits: ', count);
  readln;
end.

правильно ли if n mod 10>m then inc(col);?????

По-моему, в задаче спрашивают другое, а именно, количество нечетных цифр, а не количество цифр, больших заданного.
17 задача - исправил пару незначительных моментов (ошибок не было, кроме того, что n - в задаче четко определен):

program zad17;

uses
  CRT;
  
  const
  n=20;

var
  a: array[1..n] of integer;
  i, j: byte;
  buf: integer;

begin
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(100) - 50;
    if odd(i) and (a[i]>0) then textcolor(14) else textcolor(7);
    write(a[i],' ');
  end;
  for i := 1 to (n div 2 + n mod 2) - 1 do
    for j := i + 1 to (n div 2 + n mod 2) do
      if (a[i * 2 - 1] > 0) and (a[j * 2 - 1] > 0) and (a[i * 2 - 1] > a[j * 2 - 1]) then
      begin
        buf := a[i * 2 - 1];
        a[i * 2 - 1] := a[j * 2 - 1];
        a[j * 2 - 1] := buf;
      end;
  writeln;
  for i := 1 to n do
  begin
    if odd(i) and (a[i]>0) then textcolor(14) else textcolor(7);
    write(a[i],' ');
  end;
  readln;
end.

21 задача:

uses
  crt;

const
  n = 5;
  m = 7;

var
  a: array[1..n, 1..m] of integer;
  i, j: byte;
  s, k: longint;

begin
  k := 0;
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(100) - 50;
      write(a[i, j], ' ');
    end;
    writeln;
  end;
  for j := 1 to m do
  begin
    s := 0;
    for i := 1 to n do
      s := s + a[i, j];
    for i := 1 to n do
      if 2 * a[i, j] > s then 
      begin
        writeln('element (', i, ',', j, '): ', a[i, j]);
        inc(k);
      end;
  end;
  writeln('k: ', k);
  readln;
end.

[Риналь]

Сообщение от BDA

Во-первых, код положено оформлять с помощью кнопочки #.
Во-вторых, непонятно, зачем в 11 задаче дана длина числа.
11 задача:

var
  n: longint;
  count: integer;

begin
  write('Number: ');
  readln(n);
  count:=0;
  while(n <> 0) do 
  begin
    if odd(n mod 10) then inc(count);
    n := n div 10;
  end;
  writeln('Count of odd digits: ', count);
  readln;
end.

По-моему, в задаче спрашивают другое, а именно, количество нечетных цифр, а не количество цифр, больших заданного.
17 задача - исправил пару незначительных моментов (ошибок не было, кроме того, что n - в задаче четко определен):

program zad17;

uses
  CRT;
  
  const
  n=20;

var
  a: array[1..n] of integer;
  i, j: byte;
  buf: integer;

begin
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(100) - 50;
    if odd(i) and (a[i]>0) then textcolor(14) else textcolor(7);
    write(a[i],' ');
  end;
  for i := 1 to (n div 2 + n mod 2) - 1 do
    for j := i + 1 to (n div 2 + n mod 2) do
      if (a[i * 2 - 1] > 0) and (a[j * 2 - 1] > 0) and (a[i * 2 - 1] > a[j * 2 - 1]) then
      begin
        buf := a[i * 2 - 1];
        a[i * 2 - 1] := a[j * 2 - 1];
        a[j * 2 - 1] := buf;
      end;
  writeln;
  for i := 1 to n do
  begin
    if odd(i) and (a[i]>0) then textcolor(14) else textcolor(7);
    write(a[i],' ');
  end;
  readln;
end.

21 задача:

uses
  crt;

const
  n = 5;
  m = 7;

var
  a: array[1..n, 1..m] of integer;
  i, j: byte;
  s, k: longint;

begin
  k := 0;
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(100) - 50;
      write(a[i, j], ' ');
    end;
    writeln;
  end;
  for j := 1 to m do
  begin
    s := 0;
    for i := 1 to n do
      s := s + a[i, j];
    for i := 1 to n do
      if 2 * a[i, j] > s then 
      begin
        writeln('element (', i, ',', j, '): ', a[i, j]);
        inc(k);
      end;
  end;
  writeln('k: ', k);
  readln;
end.

спасибо большое))понял ошибки