Артем, Олег, Григорий и Евгений занимаются в разных спортивных секциях. Один из них играет в баскетбол, - id1382364620200924 от nikita1424 24.09.2020 17:20

Question

Информатика: Артем, Олег, Григорий и Евгений занимаются в разных спортивных секциях. Один из них играет в баскетбол, другой – в волейбол, третий – в футбол, четвертый – в теннис. У них различные увлечения: один из них любит кино, другой – театр, третий – эстраду, а четвертый – цирк. Артем не играет ни в волейбол, ни в баскетбол. Олег играет в футбол и любит театр. Евгений не играет в волейбол. Тот из ребят, кто играет в волейбол, любит ходить в кино, а тот, кто играет в баскетбол, не любит цирк. Какое увлечение

nikita1424 · Accepted Answer

// PascalABC.NET 3.0, сборка 1073
const
m=5;
n=4;
a:array[1..m] of real=(2,-7.1,3.2,-5.4,6.9);
b:array[1..n] of real=(8.1,3.2,-6.4,-3.5);
k=3;
var
i,j:integer;
sk:real;
s:array[1..m,1..n] of real;
begin
Writeln('Массив S');
for i:=1 to m do begin
    for j:=1 to n do begin
      s[i,j]:=a[i]*b[j];
      Write(s[i,j]:7:2)
    end;
    Writeln
end;
sk:=0;
for i:=1 to m do sk:=sk+s[i,k];
Writeln('Сумма элементов столбца ',k,' равна ',sk)
end.

Результат выполнения программы:
Массив S
16.20   6.40 -12.80 -7.00
-57.51 -22.72 45.44 24.85
25.92 10.24 -20.48 -11.20
-43.74 -17.28 34.56 18.90
55.89 22.08 -44.16 -24.15
Сумма элементов столбца 3 равна 2.56

MOGZ ответил