Перевести с pascal на qbasic const n = 4; var a: array [1..n,1..n] of integer; i,j,answer: byte; found: boolean; writeln('введите элементы матрицы: '); for i: =1 to n do for j: =1 to n do readln(a[i,j]); writeln(''); end; writeln; for i: =1 to n do for j: =1 to n do write(a[i,j],' '); writeln; end; writeln; answer: =0; found: =false; for i: =1 to n do for j: =1 to n do if not odd(a[i,j]) then found: =true else found: =false; break end; if found = true then answer: =i end; writeln('последняя строка, содержащая только четные элементы: ',answer); end.

ekaterinaborec8    3   04.10.2019 18:50    0