Was a young man in love with a beautiful girl? What did the girl say to the young man one day? Where did a young man go? How old was the girl? How many roses did a man in the shopsencl?
Дополнен менее минуты назад
молодой человек был влюблен в красавицу. они очень часто встречались и много времени проводили вместе. они говорили об интересных книгах, фильмах о театральной работе. однажды девушка сказала молодому человеку: - завтра у меня день рождения. Вы придете, чтобы отпраздновать его с другими друзьями? -О, Конечно сказал молодой человек. - Но сначала я пришлю вам розы, - сказал один из продавцов, - чтобы вы послали их девушке на следующий день. Человек в магазине знал молодого человека очень хорошо, потому что он часто покупал цветы в своем магазине. ВОТ ПЕРЕВОД .
Объяснение:
Was a young man in love with a beautiful girl? What did the girl say to the young man one day? Where did a young man go? How old was the girl? How many roses did a man in the shopsencl?
Дополнен менее минуты назад
молодой человек был влюблен в красавицу. они очень часто встречались и много времени проводили вместе. они говорили об интересных книгах, фильмах о театральной работе. однажды девушка сказала молодому человеку: - завтра у меня день рождения. Вы придете, чтобы отпраздновать его с другими друзьями? -О, Конечно сказал молодой человек. - Но сначала я пришлю вам розы, - сказал один из продавцов, - чтобы вы послали их девушке на следующий день. Человек в магазине знал молодого человека очень хорошо, потому что он часто покупал цветы в своем магазине. ВОТ ПЕРЕВОД .
Внимание! Если программа не работает, обновите версию!
begin
var A:=MatrGen(6,7,(i,j)->Sin(i+1)+Cos(3*(j+1)));
A.Println(10,6); Writeln(70*'-');
var B:=A.ElementsWithIndexes.Where(t->t[1].IsEven and t[2].IsEven)
.Select(t->t[0]).ToArray;
B.Println;
var m:=B.Where(t->t>0).DefaultIfEmpty.Average;
Writeln('Искомое среднее равно ',m);
var f:=OpenWrite('MyFile.txt');
for var i:=0 to A.RowCount-1 do begin
for var j:=0 to A.ColCount-1 do
Write(f,A[i,j],' ');
Writeln(f);
end;
Writeln(f);
for var i:=0 to B.Length-1 do Write(f,B[i],' ');
f.Close;
end.