Program asd; USES crt; Const n=7; VAR A:array [1..n,1..n] of integer; i,j,q,w:integer; BEGIN For i:=1 to n do begin For j:=1 to n do begin if((j<i)and(j<n-i+1))or((j>n-i+1)and(j>i)) then a[i,j]:=1 else a[i,j]:=0; write(a[i,j]); end; Writeln end; END. Интересное задание) заставило подумать
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) var a,n,k,i,j,s:integer; begin writeln('Количество учеников и количество оценок'); readln(n,k); for i:=1 to n do begin for j:=1 to k do begin write('Ученик № ',i, ' оценка № ',j,' = '); readln(a); s:=s+a; end; end; println('Средняя оценка группы ',s/(n*k):6:3); end.
USES crt;
Const n=7;
VAR A:array [1..n,1..n] of integer;
i,j,q,w:integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to n do
begin
if((j<i)and(j<n-i+1))or((j>n-i+1)and(j>i)) then a[i,j]:=1
else a[i,j]:=0;
write(a[i,j]);
end;
Writeln
end;
END.
Интересное задание) заставило подумать