Меню сайта

Задача №60

Удвоитьнаибольший элемент массива Х(м).

uses crt-

varmax,i,size,k:integer-

x:array[1..10000]of integer-

begin-

clrscr-

writeln(‘Введите размер массива’)-

readln(size)-

writeln(‘Введите элементы массива’)-

FOR i := 1 TO sizedo

begin

readln(x[i])-

end-

max := x[1]-

FOR i := 2 TO sizedo

begin

IF x[i] &gt- maxTHEN

begin

max := x[i]- k :=i-

end-

end-

x[k] := max * 2-

writeln(‘Массив с удвоенным максимальным элементом’)-

FOR i := 1 TO sizedo

begin

writeln (x[i])-

end-

end.

Категория: Массивы | Дата: 07.12.12

Меню раздела
Блок