Var
A:array[1..33] of integer;
i:integer;
Begin
For i:= 1 to 33 do
Begin
A[i]:=i*2-1;
Write(A[i],' ')
End;
End.
Program fdg;
uses crt;
var a:char b:integer;
Begin
clrscr;
writeln('Введите марку топлива латиницей');
readln(a);
writeln('Введите сколько литров вам нужно бензина этой марки ');
readln(b);
If a=ae
===== PascalABC.NET =====
begin
var p := ReadInteger('p =');
var a := ArrRandom(p, -99, 99);
a.Println;
var q := a.FindIndex(r -> r < 0);
if q > -1 then
begin
var b := a?[:q].Where(r -> r.IsEven).ToArray;
Print('Первый массив:');
b.Println;
var c := a?[q:].Where(r -> r.IsOdd).ToArray;
Print('Второй массив:');
c.Println;
end
else
Println('В массиве нет отрицательных элементов')
end.
Program gt;
var b:array[1..100]of integer;
r,i,n,q,min,t:integer;
begin
read(N);
q:=0;
for i:=1 to n do
begin
read(b[i]);
if(b[i]>0)then begin
q:=q+1;
if(q=1)then begin
r:=i;
t:=b[i];
end;
end;
end;
min:=b[1];
for i:=2 to n do
if(b[i]<min)then min:=b[i];
for i:=1 to n do
begin
if(b[i]=min)then b[i]:=t;
if(i=r)then b[i]:=min;
write(b[i],' ');
end;
end.
смотри эта задача похожа на комбинаторную)
1ый вопрос:
на первом месте есть 3 варианта буквы, на втором тоже 3, на третьем 3
=> всего слов 3 * 3 * 3 = 27
2ой:
1 - ая буква - м, => это как минимум 10-ое слово (т.к. в предыдущих 3 * 3 словах первая - и)
при этом 10 слово - мии => 11 слово - МИМ; 12 cлово - МИР;
3ий:
1-ая буква -Р это как минимум 19 слово (предыдущие 2 * 3 * начинаются на и или м)
19 слово - РИИ => 21 - PИМ