Помогите решить задачу...

[Spiker01]

Спасибо что обьяснил , я в книге нашёл ,ето "Несовместимость типов данных" ,"Error.....:Type mismatch" ,исправил , работает .
По задаче получилось вот :

Program ProMassiv;
var
d:array[1..10] of real;
i:integer;
s,kp,ko:real;
begin
ko:=0;
kp:=0;
for i:=1 to 10 do begin
writeln('Vvedite massiv # ',i);
readln(d[i]);end;begin
for i:=1 to 10 do begin
if d[i]<0 then ko:=ko+1 else kp:=kp+1;
end;
if ko>=10 then writeln('Vse elementi otricatelnie.') else
if kp>=10 then writeln('Vse elementi poloszitelnie.')
else writeln('Prisytstvyiyt i otritsatelnie ,i poloszitelnie thisla');
end;
readln;
end.

Я поменял знак "=" на" >= " потомучто вписывать буду не только "1" и " -1" а есчо и "20 , 30 ,- 10,-23 " и тд.
Спасибо, на репутацию нажал.

[Spiker01]

Домой задали аж 3 задачи на двухмерные массивы:

1)В двухмерном массиве А(2,4) вычислете среднеарифметическое елементов находящихся в заданном диапозоне.
2)В двухмерном массиве А(3,3) , элементы главной диоганали заменить наибольшими значениями найденными в строках.
3)Постройте программу определяющую сколько раз в двухмерном массиве встречается максимальное по величине число.

[Карась]

Мы за Вас рады......

Задавайте вопросы, поможем.

[Spiker01]

Вопрос : КАК решить ? Я в двухмерных массивах не разбираюсь.

[Карась]

Ну например прочитайте раздел "Двумерные массивы" из любой книжки..

[Spiker01]

Уважаемый Карась у меня книга СА.Немнюгин "Турбо Паскаль -Программирование на языке высокого уровня" в печатном виде , и я там такой темы ненашёл . Книга и в правду написана "на языке высокого уровня" , не для средних умов .) Если вы знаете на какой странице в этой книге напечатано про двухмерные массивы , скажите мне.

[Alex21]

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

Если вы знаете на какой странице в этой книге напечатано про двухмерные массивы , скажите мне.

Первая тема этого раздела. Найдете массу полезного.
Тама закрыта.

[PAWLO1993]

Введи в поиске, на google.ru