Работа > Програмистам 

нужно написать програмку в турбо паскале. Условия задичи: дан массив из N целых чисел. Вычислить среднее аривметическое отрицательных четных элементов массива. Тому кто первый напишет ее в этом топе награда 10 кр. (разумеется если она будет работать).

using dos, crt;
const n:integer=10;
var
count:integer;
sum: integer;
arr: array of integer;
i: integer;
begin
sum := 0;
i:=0;
while(i<n) do
begin
write("Введите "+i+" элемент:");
readln(arr[i]);
if(arr[i]<0) begin
sum := sum + arr[i];
count := count+1;
end;
i:=i+1;
end;
writeln("Среднее арифметическое отрицательных елементов: "+(sum/count));
readln();
end.

в синтаксисе не уверен. писал на паскале последний раз лет 8 назад...

н-да, двоешники :( даже такое сами не мугут написать

> н-да, двоешники :( даже такое сами не мугут написать


и такое бывает... :(