Найдите ошибки паскальprocedure fn(s: string); var i: integer; beginreadln(s); for i to length(s) dobeginif copy(s, i, 5)='минус'; thendelite(s, i, 5); insert('плюс', s, i); end; end; var b: string; beginwrite(fn(b)); end.

for example i have a very small number in my family that has the highest amount in the same way 1 fteh 2 in a year do you think

Program sdf; var a: array[1..10000,1..10000] of integer; i,j,k,h,m,n: integer; s: real; beginwriteln('vvedite kolichestvo strok'); readln(n); writeln('vvedite kolichestvo stolbtsov'); readln(m); writeln('vvedite elementy matricy'); for i: =1 to n dofor j: =1 to m doreadln(a[i,j]); k: =0; for i: =1 to n dofor j: =1 to m do  if a[i,j] mod 2 = 0then k: =k+1; writeln('vvedite nomer stolbtsa'); readln(h); for j: =1 to m dos: =s+a[j,h]; writeln('kolichestvo chetnyh', k); writeln('symma elementov stolbtsa', s); end.

ответ:1) (1 б.) Верные ответы: 3;

2) (1 б.) Верные ответы: 4;

3) (1 б.) Верные ответы: 1; 2;

4) (1 б.) Верные ответы: 3;

5) (1 б.) Верные ответы: 1;

6) (1 б.) Верные ответы: 3;

7) (1 б.) Верные ответы: 4;

8) (1 б.) Верные ответы: 1;

9) (1 б.) Верные ответы: 3;

10) (1 б.) Верные ответы: 3;

11) (1 б.) Верные ответы: 2;

12) (1 б.) Верные ответы: 3;

13) (1 б.) Верные ответы: 4;

14) (1 б.) Верные ответы: 1;

15) (1 б.) Верные ответы: 1; 2;

16) (1 б.) Верные ответы: 1;

17) (1 б.) Верные ответы: 2;

18) (1 б.) Верные ответы: 1;

19) (1 б.) Верные ответы: 3;

20) (1 б.) Верные ответы: 2;

21) (1 б.) Верные ответы: 2;

Объяснение: