{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"} const m=100; var a:array[1..m,1..m]of integer; i,j,S,n,k: integer; begin Readln(n); for i:=1 to n do begin writeln; for j:=1 to n do begin a[i,j]:=random(100)-50; write(a[i,j]:4);
end; end; for i:=1 to n do if a[i,i]>0 then begin s:=s+a[i,i]; k:=k+1; end; writeln; if k<>0 then writeln('SR=', s/k) else writeln('Net <0'); end.
Var s,sd,sm,sy:string; d,m,y,err:integer; begin Write('Введите текущую дату в формате дд/мм/ или дд.мм.: '); Readln(s); if Length(s)<>10 then Writeln('Неверный ввод') else begin sd:=s[1]+s[2]; Val(sd,d,err); sm:=s[4]+s[5]; Val(sm,m,err); sy:=Copy(s,7,4); Val(sy,y,err); if err>0 then Writeln('Неверный ввод') else begin if d<28 then d:=d+1 else begin case m of 1,3,5,7,8,10,12: if d<31 then d:=d+1 else begin d:=1; m:=m+1 end; 2: if (y mod 4)=0 then if d=28 then d:=29 else begin d:=1; m:=3 end else begin d:=1; m:=3 end; else if d<30 then d:=d+1 else begin d:=1; m:=m+1 end end end; if m>12 then begin m:=1; y:=y+1 end; Str(d,sd); if Length(sd)=1 then sd:='0'+sd; Str(m,sm); if Length(sm)=1 then sm:='0'+sm; Str(y,sy); s:=sd+'.'+sm+'.'+sy; Writeln('Завтра будет '+s) end end end.
const
m=100;
var
a:array[1..m,1..m]of integer;
i,j,S,n,k: integer;
begin
Readln(n);
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:4);
end;
end;
for i:=1 to n do
if a[i,i]>0 then
begin
s:=s+a[i,i];
k:=k+1;
end;
writeln;
if k<>0 then
writeln('SR=', s/k)
else
writeln('Net <0');
end.