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

под буквами a и b, очень

Показать ответ
Ответ:
Суховруктик
Суховруктик
11.02.2023 10:03

pascal

Объяснение:

var

 a: array [1..21] of integer;

 i, max, imax: integer;

begin

 randomize;

 WriteLn('Исходный массив:');

 for i := 1 to 21 do

 begin

   a[i] := random(66) - 13;

   Write(a[i], ', ');

 end;

 WriteLn;

 WriteLn('Результат задания 1:');

 for i := 1 to 21 do

 begin

   if i mod 2 = 0 then a[i] := -3 * a[i];

   Write(a[i], ', ');

 end;

 WriteLn;

 WriteLn('Результат задания 2:');

 for i := 1 to 21 do

 begin

   if a[i] < 10 then a[i] := - a[i];

   Write(a[i], ', ');

 end;

 WriteLn;

 max := -13;

 WriteLn('Результат задания 3:');

 for i := 1 to 21 do

 begin

   if abs(a[i]) > 40 then a[i] := a[i] - 15;

   Write(a[i], ', ');

   if a[i] > max then

   begin

     max := a[i];

     imax := i;

   end;

 end;

 WriteLn;

 a[imax] := sqr(imax);

 WriteLn('Результат задания 4:');

 for i := 1 to 21 do

   Write(a[i], ', ');

end.

0,0(0 оценок)
Ответ:
tomchakd
tomchakd
18.02.2021 21:07

program z1;

var a:array [1..21] of integer;

i,m: integer;

begin;

write('0.');

for i:=1 to 21 do

begin

a[i]:=random(66)-13;

write(a[i]:5)

end;

writeln;

write('1.');

for i:=1 to 21 do

begin

if i mod 2 = 0 then a[i]:=-3*a[i];

write(a[i]:5)

end;

writeln;

write('2.');

for i:=1 to 21 do

begin

if a[i] < 10 then a[i]:=-a[i];

write(a[i]:5)

end;

writeln;

write('3.');

for i:=1 to 21 do

begin

if abs(a[i]) > 40 then a[i]:=a[i]-15;

write(a[i]:5)

end;

writeln;

m:=1;

for i:=1 to 21 do if a[m] < a[i] then m:=i;

a[m]:=m*m;

write('4.');

for i:=1 to 21 do write(a[i]:5)

end.

Объяснение:

После каждого преобразования выводится получившийся массив

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота