Переменной присвоить значение 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;

Оцени полезность:

11   голосов , оценка 3.727 из 5
Похожие ответы