Показать сообщение отдельно
Старый 15.10.2019, 20:04   #3 (permalink)
Gasphord
Новичок
 
Регистрация: 15.10.2019
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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.
Gasphord вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070