Держи)помоги пожалуйста мне))
Мне кажется, что это слово <u>ФРАГМЕНТ</u>
Правильный ответ - суббота.
Потому что: Кристина врёт во вторник, четверг, субботу, воскресенье. Получается, в она сказала это в субботу и соврала, потому что на следующий день (воскресенье) она не будет говорить правду.
var i,n:real;
begin
read (n);
for i:=1 to 10 do
write (i*n/10)
end.
var
A,B,C: array[1..100] of integer;
i,n,j,k:integer;
begin
randomize;
j:=0;
k:=0;
Readln(n);
Writeln('Исходный массив:');
for i:=1 to n do
begin
A[i]:=random(10);
writeln('A[',i,']=',A[i]);
end;
for i:=1 to n do
if A[i]>5.5
then
begin
j:=j+1;
B[j]:=A[i];
end;
for i:=1 to n do
if A[i]<=5.5
then
begin
K:=k+1;
C[k]:=A[i];
end;
for i:=1 to j do
writeln('B[',i,']=', B[i]);
for i:=1 to k do
writeln('C[',i,']=', C[i]);
end.