Дан массив А, состоящий из 6 элементов

Question

Дан массив А, состоящий из 6 элементов. Поменятьместами максимальный и отрицательный элементы. Вывести новый массив

Azazeli · Accepted Answer

Program chik; var a: Array [1… 6] of integer; i,max,min: integer; BeginRandomize; For i: =1 to 6 dobegina[i]: =random (40) -20; write (a[i],'); end; writeln; max: =a[1]; min: =a[1]; for i: =2 to 6 dobeginif (a[i]>max) then max: =a[i]; if (a[i]<min) then min: =a[i]; end; for i: =1 to 6 dobeginif (a[i]=max) then a[i]: =min else beginif (a[i]<0) then a[i]: =max; end; write (a[i],'); end; end.

Дан массив А, состоящий из 6 элементов

Задание:

Решение: