Напишите пожелание с новым годом, которое вы хотите, чтобы обязательно исполнилось.

👇

Ответ:

vikacatcatcat

03.04.2023

ответ:

я хочу на новый год чтобы мои родители всегда и ни когда не ссорились,чтобы мы были всегда счастливы.я всем желаю чтобы родители наши не ссорились и чтобы всегда были вместе!

4,5(92 оценок)

Открыть все ответы

Ответ:

Julia77707

03.04.2023

Begin

writeln('¶¶¶¶¶¶¶¶¶¶1');

writeln('¶¶¶¶¶¶¶¶¶¶¶¶1');

writeln('¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶');

writeln('¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶');

writeln('¶¶__¶¶¶__¶¶¶¶_¶¶¶¶¶¶¶¶');

writeln('¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

writeln('¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

writeln('¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶¶_¶¶¶¶¶');

writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

writeln('¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶');

writeln('_¶¶1¶¶¶¶_¶¶¶¶¶¶¶¶¶¶1');

writeln('_¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶1');

writeln('__¶¶_¶¶¶¶¶¶_¶¶¶¶');

writeln('__¶¶¶__¶¶¶¶¶¶_¶¶¶');

writeln('__¶¶¶___¶__¶¶¶¶¶_¶¶¶¶');

writeln('___¶¶¶¶¶_¶_¶¶¶¶¶¶_¶¶¶¶');

writeln('___¶¶_¶¶¶¶¶1¶¶¶¶¶¶¶¶¶¶1');

writeln('__¶__¶¶¶¶¶¶¶¶1¶¶¶¶¶¶¶¶¶¶¶1');

writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶1¶¶¶¶¶_¶¶¶¶¶');

writeln('_¶¶_0__0_¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶__¶¶¶1');

writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶_¶¶¶¶1');

writeln('_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶_¶¶¶1');

writeln('__¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶_¶¶¶1');

writeln('___¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶¶1');

writeln('¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶__¶¶¶¶¶_¶¶¶1');

writeln('¶¶¶¶¶¶___¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

writeln('¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

writeln('___1¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

writeln('__1¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

writeln('__1¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

writeln('__1¶¶¶¶¶_¶¶¶¶_¶¶¶¶__¶¶¶¶¶¶¶¶¶¶_¶¶¶_¶¶¶1');

writeln('___1¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶_¶¶_¶¶¶¶1');

writeln('¶_¶¶¶¶¶_¶¶¶¶¶¶¶_¶¶¶¶¶¶¶_¶_¶¶_¶¶¶1');

writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶_¶¶¶¶¶¶_¶_¶¶_¶¶1');

writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶_¶¶¶¶1');

writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶1');

writeln('___¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶___¶¶¶___¶¶¶¶¶');

writeln('__¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶');

writeln('_¶¶¶¶¶¶¶¶¶¶¶¶¶');

writeln('_¶___¶¶¶¶_¶¶¶¶');

writeln('¶___¶¶¶¶_¶¶¶¶¶¶¶');

writeln('¶¶¶¶_¶¶¶¶¶1¶¶');

writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');

writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶');

writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');

writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶');

writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');

writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶');

writeln('¶¶¶¶¶¶¶¶¶¶_¶');

writeln('¶¶¶1¶¶¶¶¶');

writeln('¶¶1¶¶');

writeln('¶¶');

end.

Подробнее - на -

4,5(80 оценок)

Ответ:

ghj42

03.04.2023

Var
m,n,i,j,max,min,imx,imn,jmn,jmx,k,p:integer;
s:real;
a:array[,]of integer;
begin
write('Число строк: ');
readln(m);
write('Число столбцов: ');
readln(n);
setlength(a,m+1,n+1);
for i:=1 to m do
begin
  writeln('Вводите элементы строки ',i,' по одному');
for j:=1 to n do readln(a[i,j]);
end;
min:=a[1,1];
max:=a[1,1];
imn:=1;
jmn:=1;
imx:=1;
jmx:=1;
for i:=1 to m do
for j:=1 to n do
begin
if a[i,j]<min then
begin
min:=a[i,j];
imn:=i;
jmn:=j;
end;
if a[i,j]>max then
begin
max:=a[i,j];
imx:=i;
jmx:=j;
end;
  end;
p:=a[imn,jmn];
a[imn,jmn]:=a[imx,jmx];
a[imx,jmx]:=p;
writeln('Измененный массив:');
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]:5);
writeln;
end;
write('Введите номер строки: ');
readln(i);
for j:=1 to n do
if a[i,j]<0 then
   begin
  s:=s+a[i,j];
   k:=k+1;
   end;
writeln('Ср.ариф. отр.чисел в строке: ',s/k);
end.

4,5(69 оценок)

Это интересно:

Кулинария-и-гостеприимство

09.04.2020

Сэндвич с беконом: легкий рецепт на каждый день...

Дом-и-сад

09.06.2020

Как отмыть губку: простые и эффективные способы...

Компьютеры-и-электроника

08.05.2023

Как убить Херобрина в Майнкрафт: практические советы от игроков...

Компьютеры-и-электроника