Вмассивах u7 d7 v7 содержатся значенияв массивах u7 d7 v7 содержатся значения утренней дневной и вечерний температуры соответственно , за каждый день недели , сформировать массив s7 в котором будут содержаться значения средне-дневной температуры, определить среднее значение температуры за неделю. паскаль, !

Var   u7, d7, v7, s7: array[1..7] of real;   i: integer;   s: real; begin   writeln('вводите температуры за утро, день и вечер');   s : = 0;   for i : = 1 to 7 do   begin       write(i: 1, ': ');       readln(u7[i], d7[i], v7[i]);       s7[i] : = (u7[i] + d7[i] + v7[i]) / 3;       s : = s + s7[i]   end;   s : = s / 7;   writeln;   writeln('средние температуры по дням недели: ');   for i : = 1 to 7 do       write(s7[i]: 0: 1, ' ');   writeln;   writeln('средняя температура за неделю: ', s: 0: 1) end. тестовое решение: вводите температуры за утро, день и вечер 1: 19.6 24.8 17.3 2: 16.8 22.3 18.1 3: 15.9 24.2 19.0 4: 18.5 26.8 20.3 5: 19.2 25.6 21.7 6: 19.0 23.7 20.1 7: 18.8 23.9 19.5 средние температуры по дням недели: 20.6 19.1 19.7 21.9 22.2 20.9 20.7 средняя температура за неделю: 20.7

ответ:

#include

#include

#include

#include

using namespace std;

int main(int argc, char *

{

    qcoreapplication ap(argc, argv);

    file *fp, *fout;

    long long a, b, c, m;

    fp = fopen ("0","r+");

    fscanf (fp, "%lld\n%lld\n%lld", & a, & b, & c);

    fclose(fp);

    long long sum = 2 * a + 3 * b + 4 * c;

    long long cnt = a + b + c;

    long long l = 0, r = cnt + 1;

    // алгоритм бинарного поиска

    while (l < r)

    {

        m = (l + r) / 2;

        if ((sum + 5.0 * m) / (cnt + m) < 3.5)

            l = m + 1;

        else

            r = m;

    }

    fout = fopen ("0.a","w+");

    fprintf (fout,"%lld",l);

    fclose(fout);

    return

объяснение:

program zn;

uses crt;

type mas=array [1..20, 1..20] of real;

var a: mas; i,j,g,b,n,m,o: integer;     l: real;

begin

        clrscr;

        write ('введите диапазон массива: ');

        readln (g,b);

        write ('введите размер массива: ');

        readln (n,m);

        randomize;

        for i: =1 to n do

                begin

                  for j: =1 to m do

                        begin

                                  a[i,j]: =random(b-g)+g;

                                  write (a[i,j]: 5: 0, '  ');

                        end;

                        writeln;

                end;

        o: =0;

        for i: =1 to n do

            begin

                for j: =1 to m do

                        begin

                                  a[3,j]: =o;

                        end;

            end;

        for i: =1 to n do

                begin

                    for j: =1 to m do

                          if i=1 then

                            begin

                                      l: =l+a[i,j];

                            end;

                end;

        writeln ('новый массив');

        for i: =1 to n do

              begin

                for j: =1 to m do

                        begin

                                  write (a[i,j]: 5: 0, '  ');

                        end;

                        writeln

              end;

              writeln ('сумма элементов первой строки= ',l: 5: 0);

readln;

end.

  вообщем вот.