В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
adelifanku2
adelifanku2
23.09.2021 06:48 •  Информатика

Какие преимущества при формировании изображений обеспечивает механизм слоёв?

Показать ответ
Ответ:
Savi123
Savi123
25.01.2022 13:11
//Pascal ABC.NET v3.1 сборка 1219
Const 
n=15;

 Var
 ar:array[1..n] of integer; 
sum,i:integer;
begin
 randomize;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(2,23);
   write(ar[i]:4);
   sum:=sum+sqr(ar[i]);
  end;
 writeln;
 writeln('Sum=',sum);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]+ar[n];
   write(ar[i]:4);
  end;
end.

Пример работы программы:
First array:
  19  21  10  13   7  13   9   2  22  20  10   7  17   7  22
Sum=3229
Final array:
  41  43  32  35  29  35  31  24  44  42  32  29  39  29  44
0,0(0 оценок)
Ответ:
BARBARIC5665
BARBARIC5665
25.06.2020 10:57
//Pascal ABC.NET v3.1 сборка 1219

Const
 n=10;

 Var
 ar:array[1..n] of integer; 
sum,i:integer;
begin
 randomize;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(-50,50);
   write(ar[i]:4);
   sum:=sum+ar[i];
  end;
 writeln;
 writeln('Sum=',sum);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]*5;
   write(ar[i]:6);
  end;
end.

Пример работы программы:
First array:
  24  45  28  40 -48  -7  29  43 -23  18
Sum=149
Final array:
   120   225   140   200  -240   -35   145   215  -115    90
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота