Регистрация
Kola2004kola
07.04.2022 14:45
Информатика
Есть ответ 👍

Информатика класс умоляю

148
491
Посмотреть ответы 2

Ответы на вопрос:

KraRom
KraRom
4,4(70 оценок)

ОТВЕТ

Объяснение:

а дсстслс

89286762165
89286762165
4,5(16 оценок)
Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! begin   var n: =readinteger('укажите n> 11: ');   var c: =arrrandom(n,-50,50); c.println;   var a: =new integer[n];   for var i: =0 to n-1 do       if i.between(2,11) then a[i]: =sqr(c[i]) else a[i]: =c[i]-1;   a.println;   var imax: =a.indexmax;   a[imax]: =-a[imax];   writeln('максимальный элемент заменен на ',a[imax]);   var imin: integer;   (imin,imax): =(a.indexmin,a.indexmax);   if imin> imax then swap(imin,imax);   for var i: =imin+1 to imax-1 do a[i]: =0;   a.println end. пример укажите n> 11: 15 -47 11 -42 23 29 12 3 -24 -20 11 -4 38 42 -26 -28 -48 10 1764 529 841 144 9 576 400 121 16 1444 41 -27 -29 максимальный элемент заменен на -1764 -48 10 -1764 0 0 0 0 0 0 0 0 1444 41 -27 -29

Популярно: Информатика