Const
m = 5;
n = 8;
var
a: array[1..m, 1..n] of integer;
i, j, t: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
for j:=1 to n do begin t:=a[1,j]; a[1,j]:=a[3,j]; a[3,j]:=t end;
Writeln('Полученный массив');
for i := 1 to m do
begin
for j := 1 to n do Write(a[i,j]:4);
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Исходный массив
45 20 -15 33 -37 26 -30 -3
-27 43 -24 4 -14 18 -50 5
-28 -47 11 27 -8 42 -19 -39
16 43 -18 0 -32 25 11 22
27 -37 -44 -38 -50 7 -45 -30
Полученный массив
-28 -47 11 27 -8 42 -19 -39
-27 43 -24 4 -14 18 -50 5
45 20 -15 33 -37 26 -30 -3
16 43 -18 0 -32 25 11 22
27 -37 -44 -38 -50 7 -45 -30
1.
uses crt;
const n=5;
var i,j,ans:integer;
a:array[1..n,1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(5,10);
write(a[i,j],' ');
end;
writeln();
end;
for i:=1 to n do
begin
ans:=0;
for j:=1 to n do
begin
if a[i,j]>7 then
ans:=ans+1;
end;
writeln('In ',i,': ',ans);
end;
<span>end.
2.
uses crt;
const n=3;
var i,j,t:integer;
a:array[1..n,1..n] of integer;
begin
writeln('Input array:');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for j:=1 to n do
begin
t:=a[1,j];
a[1,j]:=a[3,j];
a[3,j]:=t;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln();
end;
<span>end.</span></span>
Решал на паскале.
Первая:
var i:integer; s:string; a:array[1..3] of integer; t.q,z: boolean;
begin
readln(i); q:=false; t:=false;
a[1]:=i mod 10;
a[2]:=i div 10 mod 10;
a[3]:=i div 10 div 10;
for i:=1 to 3 do
begin
if a[i]=4 then
q:=true;
if (a[i]=7) and (q=true) then t:=true;
if a[i]=7 then z:=true;
end;
if t=true then writeln('Vhodyat oba) else if (q=true) and (z=false) then writeln('Vhodit 4') else if (q=false) and (z=true) then writeln('Vhodut 7');
readln;
end.
Вторая:
var a,b,c,min:integer;
begin
min:=32000;
readln(a,b,c);
if a<min then min:=a; if b<min then min:=b; if c<min then min:=c;
writeln ('Minimalnoe - ',min);
readln;
end.
Третья:
var a,b,c:integer; x,y,d:real;
begin
readln(a,b,c);
d:=b*b-(4*a*c);
if d=0 then
begin
x:=(-b/2*a);
writeln('One root: ',x:0:0);
end;
if d>0 then
begin
x:=(-b+sqrt(d))/2*a;
y:=(-b-sqrt(d))/2*a;
if y>x then
writeln('Two roots: ',x:0:0,' ',y:0:0) else writeln('Two roots: ',y:0:0,' ',x:0:0);
end;
if d<0 then writeln('No roots');
readln;
end.:
Ответ:
7. if a mod b = 0 then begin
8. writeln('Ваше первое число кратно второму.');
9.writeln('Частное - ', a div b, '.');
10.end
11. else ...
Объяснение: