Var ma:array[1..10,1..6] of integer;
i,j,k:integer;
begin;
randomize;
writeln('Matrix:');
for i:=1 to 10 do
begin;
writeln;
for j:=1 to 6 do
begin;
ma[i,j]:=random(2);
write(ma[i,j]:4);
end;
end;
for j:=1 to 6 do
begin;
i:=4;
if ma[i,j]=0 then inc(k);
end;
writeln;
write('Result:',k);
<span>end.</span>
В скобках даётся номер строки и столбца. По данной таблице Вы должны определить предложение. Начнём:
(1; 1) - Бит
(2; 3) - - (символ дефиса)
(2; 5) - это
(3; 2) - один
(2; 1) - или
(1; 3) - ноль
Бит - это один или ноль.
Здесь, скорее, подойдёт пословица (2), так как она значит, что ситуация неопределённая (или то, или это)
<h2>Ответ</h2>
2
Var s,s1,s2:string; i:integer;
begin
writeln('Введите строку:');
readln(s);
s1:=s;
while pos(' ',s1)>0 do delete(s1,pos(' ',s1),1);
writeln('Строка без пробелов:');
writeln(s1);
s2:='';
for i:=1 to length(s1) do
if s1[i]='.' then s2:=s2+'. ' else s2:=s2+s1[i];
writeln('Строка с пробелами после ".":');
writeln(s2);
end.
Пример:
Введите строку:
1. 2. 3. 4. 5. Вышел зайчик. Погулять.
Строка без пробелов:
1.2.3.4.5.Вышелзайчик.Погулять.
Строка с пробелами после ".":
1. 2. 3. 4. 5. Вышелзайчик. Погулять.
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -15, 15);
a.Println;
var i := a.IndexMin;
var m := a[i];
Println('Минимум равен', m);
Print('Номера минимальных элементов:');
a.Indices(p -> p = m).Select(p -> p + 1).Println
end.