Контрольная работа 4: 3 задачи, отчеты с блок-схемами, контрольная работа 3: задача 3, отчет, блок-схемы

  • ID: 07032 
  • 9 страниц
200 рубСкачать

антиплагиат в подарок

3 1.pas

3 2.pas

3 3.pas

4 1.pas

4 2.pas

4 3.pas

Отчет.docx

Содержание:


Работа 3.

Задача №3

Постановка задачи

Таблица футбольного чемпионата задана в виде двухмерного массива из n строк и n столбцов, в котором все элементы, принадлежащие главной диагонали, равны нулю, а каждый элемент, не принадлежащий главной диагонали , равен 3, 1 или 0 (числу очков, набранных в игре: 3 – выигрыш, 1 – ничья, 0 – проигрыш). Определить, расположены ли команды в соответствии с занятыми ими местами в чемпионате (принять, что при равном числе очков места распределяются произвольно).

Текст программы

program task3_3;

uses crt;

const n=5;

var

a:array[1..n,1..n] of byte;

i,j:integer;

s,m:integer;

begin

clrscr;

for i:=1 to n do begin

for j:=1 to n do begin

if i=j then a[i,j]:=0 else begin

a[i,j]:=random(3)+1;

if a[i,j]=2 then a[i,j]:=a[i,j]+1;

end;

end;

end;

for i:=1 to n do begin

for j:=1 to n do begin

write(a[i,j]:3);

end;

writeln;

end;

m:=0;

for i:=1 to n do m:=m+a[1,i];

for i:=2 to n do begin

s:=0;

for j:=1 to n do

s:=s+a[i,j];