Ответы и объяснения

2013-11-08T20:31:07+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var
    f, t: array[1..14] of real;
    i, k, l: integer;
    sum: real;

begin
    k := random(10) + 4;
    l := random(10) + 4;
    writeln(k:3, l:3);
   
    for i := 1 to k do
    begin
        f[i] := random(27) / 10;
        sum := sum + f[i];
        write(f[i], ' ');
    end;
    writeln();
   
    for i := 1 to l do
    begin
        t[i] := random(27) / 10;
        sum := sum + t[i];
        write(t[i], ' ');
    end;
    writeln();
    writeln(sum);
end.

Если помогло, то выбери ответ лучшим плиз