VPF::[Pascal] задача на массивы - Форум программистов

Rozelux

Дата 20.12.2011, 06:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.12.2011

Репутация: нет
Всего: нет

1. Ввести одномерный массив A , вывести его. На место минимального элемента массива записать сумму последних трех ненулевых элементов массива. На экран вывести массив после преобразования, или сообщение о невозможности модификации.
напишите пожалуйста действующий кодинг для Паскаля.

t_gran

Дата 20.12.2011, 10:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

Репутация: 33
Всего: 37

Код


const
   CSize = 10;

type
   TArray = array [1.. CSize] of word;
{-----------------------------------------------}
procedure FillArray(var theArray: TArray);
var
   i: byte;
begin
   randomize;
   for i := 1 to CSize do
      theArray[i] := random(99);
end;
{-----------------------------------------------}
procedure PrintArray(theArray: TArray);
var
   i: byte;
begin
   for i := 1 to CSize do
      write(theArray[i]:4);
   writeln;
end;
{-----------------------------------------------}
function GetMin(theArray: TArray): byte;
var
   i, min: byte;
begin
   min := 1;
   
   for i := 2 to CSize do
      if (theArray[i] < theArray[min]) then
         min := i;

   GetMin := min;
end;
{-----------------------------------------------}
function SumLastElements(theArray: TArray; theCount: byte): word;
var
   i: byte;
   sum: word;
begin
   sum := 0;

   for i := CSize downto 1 do
   begin
      if (theArray[i] <> 0) then
      begin
         sum := sum + theArray[i];
         dec(theCount);
      end;
      
      if (theCount = 0) then
         break;
   end;
   
   SumLastElements := sum;
end;
{-----------------------------------------------}

var
   arr: TArray;
   i: byte;
   sum: word;

begin
   FillArray(arr);
   PrintArray(arr);

   i := GetMin(arr);
   sum := SumLastElements(arr, 3);
   
   writeln;
   writeln('minimal  = ', i);
   writeln('addition = ', sum);
   writeln;
   
   arr[i] := sum;
   
   PrintArray(arr);
end.

Присоединённый файл ( Кол-во скачиваний: 1 )

archive.7z 18,25 Kb

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »