Paskal массивы

[Елена Крашена]

Очень прошу помочь мне: решите ,пожалуйста, 4 задачи на массивы, причём к каждой задаче обязательно нужен алгоритм!
№1)Задан числовой массив А[1..n]. Определить, каких элементов в этом массиве больше: положительных или отрицательных.
№2)Задан массив целых чисел длиной 20. Найти 2-е по величине максимальное значение в массиве.
№3)Задан массив целых чисел длиной 20. Вывести на экран все элементы больше среднего значения.
№4)Задан массив целых чисел длиной 20. Вывести на экран все элементы, имеющие двухзначные значения.

[XTen]

Пиши реализую
ICQ: 410691984

[flash1989]

Сделаю все в лучшем виде с комментариями
icq: 588002847
email: flash_1989@ukr.net

[dr.Jekill]

1.[syntax='delphi']program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
A: array of real;
i, n: integer;
PCount: integer = 0;
NCount: integer = 0;

begin
repeat
write('n: ');
readln(n);
if (n <= 0) or (n > High(Integer)) then
begin
writeln('Error!');
readln;
end;
until (n > 0) and (n <= High(Integer));
SetLength(A, n);
Randomize;
for i := Low(A) to High(A) do
begin
A := Random(20) - 5;
if A > 0 then
Inc(PCount)
else if A < 0 then
Inc(NCount);
write(A:5:2, ' ');
end;
writeln;
if PCount > NCount then
writeln('Polozhitelnyh chisel bolshe.')
else if PCount < NCount then
writeln('Otricatelnyh chisel bolshe.')
else
writeln('Polozhitelnyh i otricatelyh chisel ravnoe kol-vo.');
readln;
SetLength(A, 0);
end.[/syntax]
2.[syntax='delphi']
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
A: array[1..20] of integer;
i, Max1, Max2: integer;

begin
Randomize;
for i := Low(A) to High(A) do
begin
A := Random(20);
if i = Low(A) then
Max1 := A[Low(A)]
else if A > Max1 then
Max1 := A;
write(A, ' ');
end;
Max2 := A[Low(A)];
for i := Low(A) + 1 to High(A) do
if (A > Max2) and (A < Max1) then
Max2 := A[i];
writeln;
writeln('Max2=', Max2);
readln;
end.
[/syntax]
3. [syntax='delphi']
program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
A: array[1..20] of integer;
i: integer;
Sr:real = 0;

begin
Randomize;
for i := Low(A) to High(A) do
begin
A[i] := Random(20);
Sr:=Sr+A[i];
write(A[i], ' ');
end;
Sr:=Sr/Length(A);
Writeln;
WriteLn('Sr: ',Sr:5:2);
for i := Low(A) to High(A) do
if A[i] > Sr then write(A[i],' ');
readln;
end.
[/syntax]
4. [syntax='delphi']program Project4;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
A: array[1..20] of integer;
i: integer;

begin
Randomize;
for i := Low(A) to High(A) do
begin
A[i] := Random(20);
write(A[i], ' ');
end;
Writeln;
for i := Low(A) to High(A) do
if A[i] div 10 > 0 then
write(A[i], ' ');
readln;
end.
[/syntax]

[dr.Jekill]

...причём к каждой задаче обязательно нужен алгоритм!

посмеялся

[dr.Jekill]

1.[syntax='delphi']program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
A: array of real;
i, n: integer;
PCount: integer = 0;
NCount: integer = 0;

begin
repeat
write('n: ');
readln(n);
if (n <= 0) or (n > High(Integer)) then
begin
writeln('Error!');
readln;
end;
until (n > 0) and (n <= High(Integer));
SetLength(A, n);
for i := Low(A) to High(A) do
begin
A := Random(20) - 5;
if A > 0 then
Inc(PCount)
else if A < 0 then
Inc(NCount);
write(A:5:2, ' ');
end;
writeln;
if PCount > NCount then
writeln('Polozhitelnyh chisel bolshe.')
else if PCount < NCount then
writeln('Otricatelnyh chisel bolshe.')
else
writeln('Polozhitelnyh i otricatelyh chisel ravnoe kol-vo.');
readln;
SetLength(A, 0);
end.[/syntax]
2.[syntax='delphi']
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
A: array[1..20] of integer;
i, Max1, Max2: integer;

begin
for i := Low(A) to High(A) do
begin
A := Random(20);
if i = Low(A) then
Max1 := A[Low(A)]
else if A > Max1 then
Max1 := A;
write(A, ' ');
end;
Max2 := A[Low(A)];
for i := Low(A) + 1 to High(A) do
if (A > Max2) and (A < Max1) then
Max2 := A[i];
writeln;
writeln('Max2=', Max2);
readln;
end.
[/syntax]
3. [syntax='delphi']
program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
A: array[1..20] of integer;
i: integer;
Sr:real = 0;

begin
for i := Low(A) to High(A) do
begin
A[i] := Random(20);
Sr:=Sr+A[i];
write(A[i], ' ');
end;
Sr:=Sr/Length(A);
Writeln;
WriteLn('Sr: ',Sr:5:2);
for i := Low(A) to High(A) do
if A[i] > Sr then write(A[i],' ');
readln;
end.
[/syntax]
4. [syntax='delphi']program Project4;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
A: array[1..20] of integer;
i: integer;

begin
for i := Low(A) to High(A) do
begin
A[i] := Random(20);
write(A[i], ' ');
end;
Writeln;
for i := Low(A) to High(A) do
if A[i] div 10 > 0 then
write(A[i], ' ');
readln;
end.
[/syntax]

[dr.Jekill]

1.[syntax='delphi']program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
A: array of real;
i, n: integer;
PCount: integer = 0;
NCount: integer = 0;

begin
repeat
write('n: ');
readln(n);
if (n <= 0) or (n > High(Integer)) then
begin
writeln('Error!');
readln;
end;
until (n > 0) and (n <= High(Integer));
SetLength(A, n);
for i := Low(A) to High(A) do
begin
A := Random(20) - 5;
if A > 0 then
Inc(PCount)
else if A < 0 then
Inc(NCount);
write(A:5:2, ' ');
end;
writeln;
if PCount > NCount then
writeln('Polozhitelnyh chisel bolshe.')
else if PCount < NCount then
writeln('Otricatelnyh chisel bolshe.')
else
writeln('Polozhitelnyh i otricatelyh chisel ravnoe kol-vo.');
readln;
SetLength(A, 0);
end.[/syntax]
2.[syntax='delphi']
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
A: array[1..20] of integer;
i, Max1, Max2: integer;

begin
for i := Low(A) to High(A) do
begin
A := Random(20);
if i = Low(A) then
Max1 := A[Low(A)]
else if A > Max1 then
Max1 := A;
write(A, ' ');
end;
Max2 := A[Low(A)];
for i := Low(A) + 1 to High(A) do
if (A > Max2) and (A < Max1) then
Max2 := A[i];
writeln;
writeln('Max2=', Max2);
readln;
end.
[/syntax]
3. [syntax='delphi']
program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
A: array[1..20] of integer;
i: integer;
Sr:real = 0;

begin
for i := Low(A) to High(A) do
begin
A[i] := Random(20);
Sr:=Sr+A[i];
write(A[i], ' ');
end;
Sr:=Sr/Length(A);
Writeln;
WriteLn('Sr: ',Sr:5:2);
for i := Low(A) to High(A) do
if A[i] > Sr then write(A[i],' ');
readln;
end.
[/syntax]
4. [syntax='delphi']program Project4;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
A: array[1..20] of integer;
i: integer;

begin
for i := Low(A) to High(A) do
begin
A[i] := Random(20);
write(A[i], ' ');
end;
Writeln;
for i := Low(A) to High(A) do
if A[i] div 10 > 0 then
write(A[i], ' ');
readln;
end.
[/syntax]

[dr.Jekill]

Допишите Randomize, а то будет выдавать одни и те же числа

[Мамай]

Нужно решить 4 задачи. Нашел их тут на форуме. Но они на языке delphi. А мне нужно эти задачи прописать в Turbo Pascal.
Вроде много похожего в языках, но и многое различается. Помогите, пожалуйста!!!!

Ссылка на страницу с задачами: http://forum.developing.ru/showthread.php?22478-Paskal

Ну и мне алгоритм не нужен)))

Сами задачи:
№1)Задан числовой массив А[1..n]. Определить, каких элементов в этом массиве больше: положительных или отрицательных.
№2)Задан массив целых чисел длиной 20. Найти 2-е по величине максимальное значение в массиве.
№3)Задан массив целых чисел длиной 20. Вывести на экран все элементы больше среднего значения.
№4)Задан массив целых чисел длиной 20. Вывести на экран все элементы, имеющие двухзначные значения.

[dr.Jekill]

Выложите в тему задачи которые вам необходимо сделать, иначе тему удалю!