Массив

[андрей999]

Помогите пожалуйста решить задачу:
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1. Количество элементов массива, больших С; величину С задать с клавиатуры.
2. Произведение и количество элементов массива, расположенных после максимального по модулю элемента
3. Преобразовать массив таким образом, чтобы сначала располагались все отрицательные элементы, а потом — все положительные (элементы, равные 0, считать положительными).

[BDA]

Показывайте свои наработки, пусть и неправильные.

[андрей999]

вот сделал 1 и 3 часть примерно

 program hhh;
var
a:array[1..100] of real;
i,p,n:integer;
s:real;
begin
writeln('Ввести C=');
readln(s);
  writeln('Ввести количество элементов-');
  readln(p);

for i:=1 to p do
read(a[i]);{считываем массив}
n:=0;
for i:=1 to p do
if a[i]>s then inc(n);
write(' Количество элементов-',n);
end.

Program Zadacha3;

uses crt;

const n=100;

procedure obmen (var x,y: integer);

var t:integer;

begin t:=x;

x:=y;

y:=t;

end;

var

A:array [1..n] of integer;

i,k,j:integer;

begin

clrscr;

writeln ('vvedite razmer massiva');

readln (k);

writeln ('vvedite elementy massiva');

for i:=1 to k do

readln (A[i]);

for j:=1 to k-1 do

for i:=1 to k-j do

if A[i]>A[i+1] then

obmen (A[i], A[i+1]);

writeln ('resultat:');

for i:=1 to k do

writeln (A[i]);

readln;

end.

[Leshii]

2)

var
{Задаш массив}
max, max_index, count, i, j: integer;
D: real;

begin
{Ввод массива }
...
max:=a[1];max_index:=1;
for i:=1 to n do begin
   if a[i] > max then begin
      max:=a[i];
      max_index:=i;
   end;
end;
d:=1; count:=0;
for i:=max_index+1 to n do begin
     d:=d*a[i];
     inc(count);
end;

writeln(count,'   ',d:3:2);
...

Ещё учти такую штуку что максимальный элемент может быть и в конце массива, тогда тебе надо будет добавить условие ... ( подумай и доделай сам )

[BDA]

Так.
Первая написана правильно, только имена лучше брать из задачки, чтобы не путаться.

program n1;

const
  maxsize = 100;

var
  a: array[1..maxsize] of real;
  i, n, count: integer;
  c: real;

begin
  writeln('Ввести C = ');
  readln(c);
  writeln('Ввести количество элементов = ');
  readln(n);
  for i := 1 to n do
    read(a[i]);
  count := 0;
  for i := 1 to n do
    if a[i] > c then inc(count);
  write(' Количество элементов = ', count);
  readln;
end.

Третья тоже правильно.
(изменил сортировку чуть, т.к. не знаю приведенной Вами)

program Zadacha3;

uses
  crt;

const
  n = 100;

procedure obmen(var x, y: integer);
var
  t: integer;
begin
  t := x; 
  x := y; 
  y := t; 
end;

var
  A: array [1..n] of integer;
  i, k, j: integer;

begin
  clrscr;
  writeln('vvedite razmer massiva');
  readln(k);
  writeln('vvedite elementy massiva');
  for i := 1 to k do 
    read(A[i]);
  for j := 1 to k - 1 do
    for i := j + 1 to k do
      if A[j] > A[i] then
        obmen(A[j], A[i]);
  writeln('resultat:');
  for i := 1 to k do
    write(A[i], ' ');
  readln;
  readln;
end.