Сделать блок-схему для этого кода : var a: array [1..10] of integer; i: integer; max: byte; counter: integer; begin max: =0; for i: =1 to 10 do begin a[i]: =random(15); write(a[i], ' '); end; writeln; for i: =1 to 10 do if a[i] > max then begin max: =a[i]; counter: =i; end; writeln('максимальный порядок массива: ', max); writeln('его порядковый номер: ', counter); end.

282

386

Посмотреть ответы 1

Ответы на вопрос:

kazimirova2009

Информатика

4,8(3 оценок)

Function fact(n as integer) as long dim i as integer, p as long p = 1 for i = 2 to n p = p * i next i fact = p end function sub test() dim n as integer, s as long, i as integer s = 0 n = cint(inputbox("введите число n")) for i = 1 to n s = s + fact(i) next i msgbox s end sub