Втаблице dat хранятся данные о количестве сделанных учениками (dat[1] сделал первый ученик, dat[2] – - id657586120211211 от pipinkorotkiy1 11.12.2021 12:58

Question

Информатика: Втаблице dat хранятся данные о количестве сделанных учениками (dat[1] сделал первый ученик, dat[2] – второй и т. определите, какое число будет напечатано в результате работы следующей программы. алг нач целтаб dat[1: 10] цел k, m dat[1] : = 7; dat[2] : = 9 dat[3] : = 10; dat[4] : = 5 dat[5] : = 6; dat[6] : = 7 dat[7] : = 9; dat[8] : = 8 dat[9] : = 6; dat[10] : = 9 m : = 0 нц для k от 1 до 10 если dat[k] 6 то m : = m + 1 все кц вывод m кон

pipinkorotkiy1 · Accepted Answer

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=MatrixRandom(3,2,-99,99);
Writeln('Массив А');
for var i:=0 to 2 do begin
    for var j:=0 to 1 do Write(a[i,j]:4);
    Writeln
    end;
var b:=MatrixRandom(3,2,-99,99);
Writeln('Массив B');
for var i:=0 to 2 do begin
    for var j:=0 to 1 do Write(b[i,j]:4);
    Writeln
    end;
var c:array[0..2,0..1] of real;
Writeln('Результирующий массив');
for var i:=0 to 2 do begin
    for var j:=0 to 1 do begin
      c[i,j]:=a[i,j]*b[i,j]/10; Write(c[i,j]:7:1)
      end;
    Writeln
    end
end.

Тестовое решение
Массив А
-91 -93
-62   9
-97   6
Массив B
-64 18
57 -34
-65 -30
Результирующий массив
582.4 -167.4
-353.4 -30.6
630.5 -18.0

MOGZ ответил