Глобальные переменные

@LenaKomerzan · Регистрация: 19.11.2017

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

Написать программу, которая с помощью подпрограммы процедуры находит сумму элементов одномерного массива и минимальный элемент одномерного массива. Связь осуществляется через глобальные переменные

@ZX Spectrum-128 · 24.05.2018, 18:29

Pascal

const
  n = 100;
 
var
  a: array[1..n] of integer;
  i, sum, min: integer;
 
procedure MinAndSum;
var
  i: integer;
begin
  sum := 0;
  min := a[1];
  for i := 1 to n do
  begin
    if a[i] < min then 
      min := a[i];
    sum := sum + a[i];
  end;
end;
 
begin
  randomize;
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random(n);
    write(a[i]:4);
  end;
  writeln;    
  MinAndSum;
  writeln('Минимальный элемент массива: ', min);
  writeln('Сумма элементов массива: ', sum);
end.

@LenaKomerzan 0 / 0 / 0 Регистрация: 19.11.2017 Сообщений: 17
		1
	Глобальные переменные 20.05.2018, 10:52. Показов 1774. Ответов 1 Метки нет (Все метки) Написать программу, которая с помощью подпрограммы процедуры находит сумму элементов одномерного массива и минимальный элемент одномерного массива. Связь осуществляется через глобальные переменные 0

	24.05.2018, 18:29

Опции темы

Глобальные переменные

Решение