Найти min элемент одномерного массива описав процедуры ввода элементов массива, процедура нахождения min элемента массива.

@serega721 · Регистрация: 04.10.2009

Студворк — интернет-сервис помощи студентам

Можете глянуть две задачки на pascale ?
1)Определить сумму элементов, массива целых чисел размерностью 15, элементов с 1 по 12 и с 8 по 15.И найти произведения этих сумм с использованием функций.
2)Найти min элемент одномерного массива описав процедуры ввода элементов массива, процедура нахождения min элемента массива.

@serega721 · 04.12.2009, 16:09 **[ТС]**

Вот для первой но я не уверен гляньте плиз!!!!

Pascal

function multiple(const a,b:Integer):Integer;
begin
  result := a*b;
end;
 
var
  A:Array [1..15]of integer;
  i,sum1,sum2,mult:integer;
begin
 
 // предполагается что массив уже заполнен
  Sum1 := 0;
  Sum2 := 0;
  for i := 1 to 12 do
    Inc(Sum1,a[i]);
  for i := 8 to 15 do
    Inc(Sum2,a[i]);
  mult := multiple(sum1,sum2);
  WriteLn(Mult);// Это твой ответ
end;

@serega721 4 / 4 / 3 Регистрация: 04.10.2009 Сообщений: 202
		1
	Найти min элемент одномерного массива описав процедуры ввода элементов массива, процедура нахождения min элемента массива. 02.12.2009, 16:41. Показов 1666. Ответов 1 Метки нет (Все метки) Можете глянуть две задачки на pascale ? 1)Определить сумму элементов, массива целых чисел размерностью 15, элементов с 1 по 12 и с 8 по 15.И найти произведения этих сумм с использованием функций. 2)Найти min элемент одномерного массива описав процедуры ввода элементов массива, процедура нахождения min элемента массива. 0

Опции темы

Найти min элемент одномерного массива описав процедуры ввода элементов массива, процедура нахождения min элемента массива.

Решение