const n=3;
var
a: array[1..n, 1..n] of word;
i, j, max, MaxI, S: longint; {i и j -переменные для цикла, max - максимальный элемент, S - сумма, MaxI - номер строки, в которой расположен максимальный элемент}
begin
S:=0;
max:=0;
for i:=1 to n do
for j:=1 to n do
begin
writeln('Введите a[',i,', ', j, ']');
readln(a[i,j]);
if a[i, j]>max then
begin
max:=a[i, j];
MaxI:=i;
end;
end;//for
for j:=1 to n do s:=s+a[MaxI, j];
writeln('Сумма элементов строки, в которой расположен максимальный элемент равна ', S);
end.
Вот так, если я правильно понял тебя(качай, я кинул в блокноте)
______________________________________________________________
"СПАСИБО" и оценку ответа, так я буду знать, что помог. Удачи!
Var a:integer;
begin
readln(a);
if a = 1
then write('I');
if a = 2
then write('II');
if a = 3
then write('III');
if a = 4
then write('IV');
if a = 5
then write('V');
if a = 6
then write('VI');
if a = 7
then write('VII');
if a = 8
then write('VIII');
if a = 9
then write('IX');
if a = 10
then write('X');
if a = 11
then write('XI');
if a = 12
then write('XII');
if a = 13
then write('XIII');
if a = 14
then write('XIV');
if a = 15
then write('XV');
end.
Ну исходя из моего понимания всего сущего, это операционная система.
СУММ=<u>D2+D3+D4</u>=16;
СРЗНАЧ=(D1+<u>D2+D3+D4</u>)/4=5; (D1+16)/4=5; D1=20-16;<em> D1=4</em>
