Дан массив содержащий 2018 положительных целых чисел не превышающих 1000 необходимо...

Question

Дан массив содержащий 2018 положительных целых чисел не превышающих 1000 необходимо уменьшить все элементы которые больше 100 на одно и то же значение при этом минимальный из них должен стать равным 100. Написать программу в Pascal.

Comments

ну пример они показывают на 5

Answer 1

Var a:array [1..2018] of integer;    i,min,r:integer;begin  min:=1001;  for i:=1 to 2018 do   begin     readln(a[i]);    if (a[i] > 100) and (a[i] < min)then      min:=a[i];   end;  r:=min-100;  for i:=1 to 2018 do   begin    if (a[i] > 100) then      a[i]:=a[i]-r;    writeln(a[i]);         end;end. 

Должно работать, но я ее не проверял, по понятным причинам))

Comments

И конструкция полетела, но, я думаю, разберешься