Объясните, , работу программы
program_qqq;
var dat: array[1..10] of integer = (70, 80, 90, 40, 40, 70, 80, 90);
var s: = 0;
var m: =0;
writeln(' s m k dat[k]');
for var k: = 1 to 10 do
begin
if dat[k] < 70 then
begin
s: =s + dat[k];
m: = m = 1;
end;
writeln ('s', = s);
('m', = m);
end.

антонl    1   06.10.2019 18:24    2