Полтора землекопа. королю замка еинавзан пришло донесение, что на его обитель идут войска грозного противника. - id998833320200309 от LyVlAr 09.03.2020 15:09

Question

Информатика: Полтора землекопа. королю замка еинавзан пришло донесение, что на его обитель идут войска грозного противника. у жителей королевства может быть только одно преимущество – запереться в замке и отражать атаки врага с крепостных стен, пока не подойдет союзников. чтобы увеличить шансы на успех, король приказал выкопать ров вокруг замка, но времени осталось катастрофически мало, через два дня враг будет уже слишком близко. королю понять, сколько людей надо отправить на подготовку рва, пока остальные

LyVlAr · Accepted Answer

Var a,b:array [1..100,1..100] of real;
    current_row,current_column,rows,columns:integer;

begin
readln(rows);
readln(columns);

for current_row := 1 to rows do begin
    writeln();
    for current_column := 1 to columns do begin
      read(a[current_row,current_column]);
      b[current_row,current_column] :=a [current_row,current_column] / 8;
    end;
end;

for current_row := 1 to rows do begin
    writeln();
    for current_column := 1 to columns do
      write(b[current_row,current_column]:4, ' ');
end;
end.

MOGZ ответил