Складіть блок схему алгоритму обчислення значення функції y=a^2+kx

107

223

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

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

Ivan4554

Информатика

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

Делал как-то уже похожее. программа выводить мин. и макс. элемент, если не нужно то можешь удалить из кода i_max uses crt; const nmax=10; var m: array[1..nmax] of integer; i,i_min,i_max: byte; min,max: integer; begin clrscr; randomize; writeln('исходный массив: '); for i: =1 to nmax do begin m[i]: =random(-30,30); write(m[i],' '); end; max: =m[1]; min: =m[1]; i_min: =1; i_max: =1; for i: =1 to nmax do begin if m[i]> max then begin max: =m[i]; i_max: =i; end; if m[i]< min then begin min: =m[i]; i_min: =i; end; end; writeln; writeln('максимальный элемент: ',max,' его номер: ',i_max); writeln('минимальный элемент: ',min,' его номер: ',i_min); readln; end.