Переменной присвоить значение 1, если выполняется условие - Turbo Pascal
Формулировка задачи:
Задана матрица A. Напишите программу, которая переменной L присваивает значение 1, если число положительных элементов под главной диагональю больше числа положительных элементов над главной диагональю, и значение 0 в противном случае.
Решение задачи: «Переменной присвоить значение 1, если выполняется условие»
textual
Листинг программы
program matrix; uses crt; var //Матрица задана: A: [0..10,0..10] of integer; down,up:integer; l:byte; begin clrscr; //заполнение матрицы сам пиши)) ) мб она у тебя вообще из файла берется up:=0; down:=0; l:=0; //Цикл перебора всех элементов: for i:=0 to 10 do for j:=0 to 10 do if A[i,j] > 0 then if i>j then inc(up) else inc(down);
Объяснение кода листинга программы
[0..10,0..10] of integer; up,down:integer; l:byte; begin clrscr; //заполнение матрицы сам пиши)) ) мб она у тебя вообще из файла берется up:=0; down:=0; l:=0; //Цикл перебора всех элементов: for i:=0 to 10 do for j:=0 to 10 do if A[i,j] > 0 then if i>j then inc(up) else inc(down); end;