ребят можетет перевести ??

[qasw]

var
i, count: integer;
ar: array[0..9] of real;

begin
countPlus:=0;
countMinus:=0;

//заполним массив
for i := 0 to 9 do
arr[i] := random(100)-100;

//подсчитаем кол-во отриц и пол.
for i := 0 to 9 do
begin
if ar[i] > 0 then countPlus := countPlus +1;
if ar[i] < 0 then countMinus:= countMinus+1;
end;

//если отриц. больше, то меняем знак элементов массива
if countMinus > countPlus then
for i := 0 to 9 do
arr[i] := arr[i] * (-1);

end;

на паскаль 7.0 (синий экран ,код )

[Вавел из ГМТУ]

Это и есть "на паскаль 7.0 (синий экран ,код )"

Повторюсь: http://programmersforum.ru/rules.php

[Манжосов Денис :)]

Что непонятного в этом коде? Что тебе нужно перевести? Формулируй чётче.

[Lime]

var
i, countMinus,countPlus: integer;//обьявляем переменные
ar: array[0..9] of real;//массив типа real

begin
countPlus:=0;//счётчик положительных
countMinus:=0;//счётчик отрицательных

//заполним массив
for i := 0 to 9 do//цикл по элементам массива
  arr[i] := random(100)-100;//присваиваем случайное значение

//подсчитаем кол-во отриц и пол.
for i := 0 to 9 do//цикл по элементам массива
 begin
 if ar[i] > 0 then countPlus := countPlus +1;//если элемент положительный увеличиваем счётчик на +1
 if ar[i] < 0 then countMinus:= countMinus+1;//если элемент отрицательный увеличиваем счётчик на +1
end;

//если отриц. больше, то меняем знак элементов массива
if countMinus > countPlus then
for i := 0 to 9 do//цикл по элементам массива
  arr[i] :=  arr[i] * (-1);//умножение на (-1) приводит к изменению знаков всех элементов массива

end; //Хэппи энд

[qasw]

countPlus выделяет за ошибку .

[Lime]

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

countPlus выделяет за ошибку .

Я подправил твой пример. Пробуй исправленный.

[qasw]

НЕА не в какую ((

[NSvirus]

имя массива в одном месте arr в другом ar

[qasw]

да я это исправили всё равно не идёт

[Vremya-Dengy]

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

да я это исправили всё равно не идёт

а что хоть за ошибку выдает? у ошибок номера есть....