По моему не в информатике надо такое спрашивать, и я лишь с ГК РФ в четвертой части сталкивался с авторскими правами в своей жизни
№6
program m;
var
a, max, pupils, i: integer;
ifNoanswer: boolean;
begin
ifNoanswer:=false;
a:=0;
№7 в комментах как только напишу
max:=0;
readln(pupils);
for i:=1 to pupils do
begin
readln(a);
if a>max then
max:=a
else if a=0 then
ifNoanswer:=true;
end;
writeln(max);
if ifNoanswer=false then
writeln('NO')
else
writeln('YES');
end.
Да, как ни странно, образованным человеком в Китае мог считаться только тот, кто умел писать иероглифы не просто грамотно, но и красиво. ))))
Const
<span>n=3; </span>
<span>var a:array[1..n, 1..n] of integer; </span>
<span>i,j,s:integer; </span>
<span>begin </span>
<span>s:=0; </span>
<span>writeln('Введите элементы матрицы'); </span>
<span>for i:=1 to n do </span>
<span>for j:=1 to n do begin </span>
<span>read(a[i,j]); </span>
<span>if i<j then s:=s+a[i,j]; </span>
<span>end; </span>
<span>writeln; </span>
<span>for i:=1 to n do begin </span>
<span>for j:=1 to n do write(a[i,j], ' '); </span>
<span>writeln; </span>
<span>end; </span>
<span>writeln('Сумма всех элементов над главной диагональю = ',s); </span>
<span>end.</span>
Правильны ответ вариант А.