Решение задач на применение массивов в Паскале. Сумма массива Паскаль

Решение задач на применение массивов в Pascal

Сумма массива Паскаль

Решим простую задачу на применение массивов в Паскале. Найдем сумму элементов массива:

{ @author Subbotin B.P. @see http://sbp-program.ru } procedure TMyArray.DoRun; var inn: Integer; intSumma: Integer; Massiv: array [1..5] of Integer; begin { Вводим значения элементов массива } for inn := 1 to 5 do begin Massiv[inn] := inn; end; { Выводим значения элементов массива } for inn := 1 to 5 do begin Writeln(‘Massiv[‘ + IntToStr(inn) + ‘] = ‘ + IntToStr(Massiv[inn])); end; { Находим сумму элементов массива } intSumma := 0; for inn := 1 to 5 do begin intSumma := intSumma + Massiv[inn]; end; Writeln(‘intSumma = ‘ + IntToStr(intSumma)); ReadLn(); end;

Произведение элементов массива Паскаль

Решим другую задачу на применение массивов в Паскале. Найдем произведение элементов массива:

{ @author Subbotin B.P. @see http://sbp-program.ru } procedure TMyArray.DoRun; var inn: Integer; intMulti: Integer; Massiv: array [1..5] of Integer; begin { Вводим значения элементов массива } for inn := 1 to 5 do begin Massiv[inn] := inn; end; { Выводим значения элементов массива } for inn := 1 to 5 do begin Writeln(‘Massiv[‘ + IntToStr(inn) + ‘] = ‘ + IntToStr(Massiv[inn])); end; { Находим произведение элементов массива } intMulti := 1; for inn := 1 to 5 do begin intMulti := intMulti * Massiv[inn]; end; Writeln(‘intMulti = ‘ + IntToStr(intMulti)); ReadLn(); end;

Минимальный элемент массива Паскаль

Решим ещё задачу на применение массивов в Паскале. Найдем минимальный элемент массива:

{ @author Subbotin B.P. @see http://sbp-program.ru } procedure TMyArray.DoRun; var inn: Integer; intMin: Integer; Massiv: array [1..5] of Integer; begin { Вводим значения элементов массива } for inn := 1 to 5 do begin Massiv[inn] := inn; end; { Выводим значения элементов массива } for inn := 1 to 5 do begin Writeln(‘Massiv[‘ + IntToStr(inn) + ‘] = ‘ + IntToStr(Massiv[inn])); end; { Находим минимальный элемент массива } intMin := Massiv[1]; for inn := 1 to 5 do begin if Massiv[inn] < intMin then intMin := Massiv[inn]; end; Writeln(‘intMin = ‘ + IntToStr(intMin)); ReadLn(); end;

Как можно увидеть работа с массивами в Паскале довольно проста.

Массив случайных чисел в Паскале

Решим другую задачу на применение массивов в Паскале. Рассмотрим массив случайных чисел в Паскале, его ввод и вывод:

{ @author Subbotin B.P. @see http://sbp-program.ru } procedure TMyArray.TestProc; var inn: Integer; intMassiv: array[1..10] of Integer; begin { Заполняем массив случайными числами } Randomize; for inn := 1 to 10 do begin intMassiv[inn] := Random(10); end; { Выводим значения элементов массива } for inn := 1 to 10 do begin Writeln(‘intMassiv[‘ + IntToStr(inn) + ‘] = ‘ + IntToStr(intMassiv[inn])); end; ReadLn(); end;

Получаем:

Массив случайных чисел в Паскале.