Что выдаст программа после выполнения: 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.
Другие вопросы по: Другие предметы
Знаешь правильный ответ?
Что выдаст программа после выполнения: Program q1; const N = 11; var a: array[1..N] of integer; i, s...
Популярные вопросы