1)Даны квадратная матрицы А размером 3х3 и число t. Требуется найти С=t*А. 2)Дана вещественная матрица А(N,M). Составить програм
1)Даны квадратная матрицы А размером 3х3 и число t. Требуется найти С=t*А. 2)Дана вещественная матрица А(N,M). Составить программу нахождения максимального отрицательного элемента матрицы и нахождения его местоположения.
1)var ma:array[1..3,1..3] of integer; i,j,t:integer; begin; randomize; readln(t); writeln('Matrix:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; ma[i,j]:=random(10); write(ma[i,j]:4); ma[i,j]:=ma[i,j]*t; end; end; writeln; writeln('Final matrix:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do write(ma[i,j]:4); end; <span>end. 2)</span>var ma:array of array of real; i,j,n,m,maxj,maxi:integer; max:real; begin; readln(n); readln(m); setlength(ma,n+1); for i:=1 to n do setlength(ma[i],m+1); max:=-2147483648; writeln('Matrix:'); for i:=1 to n do begin; writeln; for j:=1 to m do begin; ma[i,j]:=random(100)-50; write(ma[i,j]:4); if (ma[i,j]<0) and (ma[i,j]>max) then begin; max:=ma[i,j]; maxi:=i; maxj:=j; end; end; end; writeln; writeln('Max:',max); writeln('Строка:',maxi); write('Столбец:',maxj); end.<span> </span>
Program L; uses crt; var x:integer; begin write(' x='); readln(x); if (x mod 3)=0 then writeln('x=',x,' делется нацело на 3') else writeln('x=',x,' не делется нацело на 3') <span>end.</span>
1) program gt; var s,n,a,i:integer; begin read(n) s:=0; randomize; for i:=1 to n do begin a:=random(100); s:=s+a; end; writeln(s); end. 2) можно сделать с файлом assign... reset... rewrite... while not eof(..) do begin read(..,a); s:=s+a; end; writeln(...,s); close(..) close(..); end.