Выполняется в абс паскаль найти количество максимальных и минимальных элементов в одномерном массиве и заменить их,их суммой.

199

310

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

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

StepanEgorov

Информатика

4,6(62 оценок)

Uses crt; const n=5; var a: array[1..n] of integer; i,max,min: integer; begin clrscr; for i : = 1 to n do begina[i]: =random(20); write(a[i]: 4); end; for i : = 1 to n do beginmin: =maxint; if a[i]> max then max: =a[i]; if a[i]< min then min: =a[i]; end; writeln; for i : = 1 to n do beginif ((a[i]=max) or (a[i]=min)) then a[i]: =max+min; write(a[i]: 4); end; writeln; writeln('max = ', max, ' min = ', min); end.

ВикаФан

Информатика

4,8(33 оценок)

Узнаем сколько символов на 15-ти страницах 2048*15=30720 символов в 15 стр. умножаем на 2 байта 30720*2=61440 байта в 1 кб 1024 байта, переводим 61440: 1024=60 кб