Выберитеникмен

04.07.2021 23:03 •  Другие предметы

Что выдаст программа после выполнения: Program q1; const N = 11; var a: array[1..N] of integer; i,s: integer; begin for i:=1 to N do begin a[i] := i-6; end; s := 0; for i:=1 to N do if a[i] > 0 then s := s + a[i]; writeln(‘s=’,s); end.