Нужно сделать блок-схему с циклом постусловия и предусловия.

284

441

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

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

Абвгдежз1234567890

Информатика

4,5(13 оценок)

{$apptype console} type mass = array of array of integer; procedure kp(var a: mass; n: integer); var i,j,k: integer; begin k: =0; for j: = 0 to n-1 do if j mod 2 = 0 then for i: = 0 to n-1 do if a[i,j] > 0 then k: =k+1; writeln('k = ',k) end; procedure rnd(var a: mass; n: integer); var i,j: integer; begin randomize; setlength(a,n,n); for i: = 0 to n-1 do begin for j: = 0 to n-1 do begin a[i,j]: =random(21)-10; write(a[i,j]: 3,' ') end; writeln end; end; var a,b: mass; n,m: integer; begin write('n = '); readln(n); writeln('a(',n,',',n,'): '); rnd(a,n); kp(a,n); write('m = '); readln(m); writeln('b(',m,',',m,'): '); rnd(b,m); kp(b,m); readln end.