Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите плиз решить задачу на масивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Cold
Задание:
Определить количество отрицательных элементов, лежащих выше главной диагонали матрицы
A(MxM).
Помогите ,а то завтра здавать ,а я не знаю как её делать.
мисс_граффити
читал: Массивы. Матрицы. Типичные задачи.
?
если да, какие вопросы?
Cold
Вопросы есть.Я вот написал програму , но она не выдаёт нужный результат.
Program TwoSums;
Uses Crt;
Var A : Array [1..10, 1..10] of Real;
k,s :real;
m, i, j : Integer;
Begin
ClrScr;
Write('Количество строк и столбцов(m) - ');
ReadLn(m);
For i := 1 to m do
For j := 1 to m do
begin
Write('A[' , i , ', ' , j , '] = ');
ReadLn(A[i, j]);
end;
WriteLn;
ClrScr;
WriteLn(' Матрица А');
For i := 1 to m do
begin
For j := 1 to m do
Write(A[i, j] : 5 : 1);
WriteLn
end;
Begin
k:=1;
For i := 1 to m do
For j := i to m do
if a[i,j]>0 then a[i,j]:=K;
s:=0+k;
Writeln('вывести s');
ReadLn(s);
end;
end.

Помогите пожалуста, исправить ошибки в програму.
мисс_граффити
во-первых, необходимо использовать теги [cоde=pаs][/cоde], когда публикуешь текст программы.
Cold
Да заполняется.
мисс_граффити
и что ты этим хочешь сделать:
a[i,j]:=K;
?
и почему
 k:=1;
?
по-моему, логичнее предположить, что изначально k=0...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.