В паскале const n = 3; k = 3; var i,j:integer; a:array[1..n,1..k] of integer; begin for i:=1 to n do for j:=1 to k do begin Writeln('Введите a[',i,',',j,']:'); readln(a[i,j]); end; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to k do write('a[':4,i,',',j,']=',a[i,j]); writeln; end; for i:=1 to n do for j:=1 to k do if i=j then a[i,j]:=0; writeln('Полученный массив:'); for i:=1 to n do begin for j:=1 to k do write('a[':4,i,',',j,']=',a[i,j]); writeln; end; <span>end.</span>
Const n = 10; var a: array[1..n, 1..n] of integer; i, j: integer;
begin Randomize; Writeln('Исходная матрица'); for i := 1 to n do begin for j := 1 to n do begin a[i, j] := Random(101) - 50; Write(a[i, j]:4) end; Writeln end; for i:=1 to n do a[i,i]:=0; Writeln('Результирующая матрица'); for i := 1 to n do begin for j := 1 to n do Write(a[i, j]:4); Writeln end end.
Program ryazantsev; var str1, str2: string; begin readln(str1); readln(str2); if Pos('a', str1)=0 then writeln(str1); if Pos('a', str2)=0 then writeln(str2); end.