Нахождение числа строк матрицы, в которых есть отрицательные элементы - Turbo Pascal
Формулировка задачи:
помогите пожалуйста решить задачи в турбопаскале , буду очень признателен))
1)составить программу нахождения числа строк двумерного массива A(N,N), в которых есть отрицательные элементы.
2)составить программу заполнения одномерного массива случайными числами в диапозоне от 0 до 12 с выводом результируюшего массива на экран и нахождения индекса элемента равного 6 (если такого элемента нет то вывести диагностическое сообщение на экран).
3)Матрицу A(n, n) сформировать по следующему принципу: по диагонали расположены единицы, выше диагонали-нули, а элементы, расположенные ниже диагонали, равны сумме соответствующих индексов.
Решение задачи: «Нахождение числа строк матрицы, в которых есть отрицательные элементы»
textual
Листинг программы
const n=5; var a:array [1..n,1..n] of integer; i,j,k:integer; f:boolean; begin randomize; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(200)-50; write(a[i,j]:5); end; writeln; end; for i:=1 to n do begin f:=false; for j:=1 to n do if a[i,j]<0 then begin f:=true; break;end; if f then k:=k+1; end; writeln('chislo...',k); readln end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д