1) 2, 2) 4, 3) 1, 4) 2, 5) символ, слово, предложение, абзац, текст, 6) 1-в, 2-б, 3-а.
Но это не точно!)
1.
const n=4;
var
a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=i;
write(a[i,j]:4);
end;
writeln;
end;
end.
Результат:
<span> 1 1 1 1
2 2 2 2
3 3 3 3
4 4 4 4
2.
const m=4; n=5;
var
a:array[1..m,1..n] of integer;
i,j,k:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(96)-35;
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to m do
begin
k:=0;
for j:=1 to n do
if a[i,j]<0 then k:=k+1;
writeln(i,'-я строка: ',k);
end;
end.
Пример:
<span>Исходный массив:
50 -28 -3 36 47
-15 -23 38 -5 37
-14 9 4 5 45
16 -15 33 -5 -18
1-я строка: 2
2-я строка: 3
3-я строка: 1
4-я строка: 3
3.
const m=4; n=5;
var
a:array[1..m,1..n] of integer;
i,j,min:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(111)-65;
write(a[i,j]:4);
end;
writeln;
end;
min:=111;
for i:=1 to m do
for j:=1 to n do
if (a[i,j]<min)and(a[i,j] mod 2=0) then min:=a[i,j];
writeln('min = ',min);
end.
Пример:
<span>Исходный массив:
43 -31 -45 6 38
0 1 -63 44 -50
-34 -9 -6 -56 -15
-48 6 14 25 10
min = -56</span></span></span>
const max=10;
var a:array[1..max,1..max] of integer;
k1,k2:array[1..max]of byte;
n,m,i,j,s1,s2:integer;
begin
repeat
write('Количество строк до ',max,' n=');
readln(n);
until n in [1..max];
repeat
write('Количество столбцов до ',max,' m=');
readln(m);
until m in [1..max];
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=-15+random(31);
write(a[i,j]:4);
end;
writeln;
end;
s1:=0;
s2:=0;
for j:=1 to m do
begin
k1[j]:=0;
k2[j]:=0;
for i:=1 to n do
if abs(a[i,j])>10 then
begin
a[i,j]:=10;
inc(s1);
inc(k1[j]);
end
else
begin
a[i,j]:=j;
inc(s2);
inc(k2[j]);
end;
end;
writeln('Измененная матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
writeln(' Количество замен');
writeln(' 1 вида 2 вида');
for i:=1 to m do
writeln('Столбец ',i:2,k1[i]:5,k2[i]:5);
writeln('Всего ',s1:5,s2:5);
end.
Printf( "%sпринадлежит\n", ( (10 < x) & (x < 20) ? "" : "Не " ) );
