• Paranoid - курс по анонимности и безопасности в сети от команды codeby. Защита персональных данных, анонимность в сети интернет, настройка виртуальных машин, безопасная передача данных, анти форензика и еще много всего полезного. Подробнее ...

Помогите Решить Пожалуйста, Третий День Мучаюсь

Andrey7284

New member
22.12.2013
1
0
#1
составить программу определения макс и мин числа в массиве состоящем из 20 чисел. Вычислить разность между макс и мин значением и заменить ею четные элементы массива
 

gpatron

Active member
13.08.2009
26
0
#2
Код:
//определяем макс и мин элементы масива
max:=a[1];
min:=a[1];
for i:= 2 to 20 do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
//вычисляем разность
razn:=max-min;
//заменяем четные элементы разностью
for i:= 1 to 20 do if (a[i] mod 2)=0 then a[i]:=razn;