Цитата:
Сообщение от Vladimir_S
Задачка абсолютно детская, примитивная, а потому можем только помочь отладить Ваше решение, когда оно будет выложено. Никаких "вы пишите — я скатаю" не будет.
|
Код:
uses
System.SysUtils,
Windows;
Var
n,k,i,x :integer;
max1,max2,max3,a :real;
Begin
Readln(k,n,max1);
for i:=2 to k do
begin
readln(max1);
if a>max1 then max1:=a;
end;
readln(max2);
for i:=k+2 to 2*k do
begin
readln(a);
if a>max2 then max2:=a;
end;
x:=2*k;
while x<=k*(n-1)+1 do
begin
read(a);
x:=x+1;
end;
max3:=a;
for i:= x to k*n do
begin
read(a);
if a>max3 then max3:=a;
end;
Writeln(max1,max2,max3);
readln;
end.