Тема: Массивы

найти сумму 4 элементов, самый минимальный из них и заменить его на 8

3 задачи в 1

спасибо заранее)

1

Ответы и объяснения

Лучший Ответ!
2014-02-25T15:07:17+04:00
Var
 mas:array[1..4] of integer;
 sum,i,min:integer;
begin
 sum:=0;
 for i:=1 to 4 do
 begin
  read(mas[i]);
  sum:=sum+mas[i];
 end;
 min:=1;
 for i:=2 to 4 do
  if mas[i]<mas[min] then
   min:=i;
 mas[min]:=8;
 for i:=1 to 4 do
  write(mas[i],' ');
 writeln;
 writeln(sum);
end.