массив в паскале

@Dmitriy_11 · Регистрация: 14.09.2013

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

задано одномерный массив действительных чисел. Составить программу для вычисления величин.Обчислиты сумму наименьшего и наибольшего элементов

@habb · 13.10.2013, 19:52

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

Pascal

max:=a[1];
for i:=1 to n do begin
if (a[i]>max) then max:=a[i];
end;

Минимальный элемент:

Pascal

min:=a[1];
for i:=1 to n do begin
if (a[i]<min) then min:=a[i];
end;

Сумма:

Pascal

1	summa:=min+max; writeln('Сумма равна ',summa);

Пишите нормально условие, без ошибок. Порой пару букв может поменять суть задачи:

Сообщение от Dmitriy_11

Обчислиты

@erl27 · 13.10.2013, 19:53

Pascal

var
  A: array[1..100] of real;
  i, N: integer;
  max, min: real;
  
begin
  writeln('Введите N (размер массива):');
  write(' N = ');
  readln(N);
  writeln('Вводим массив из ', N, ' действительных чисел:');
  min := 100;
  max := -100;
  for i := 1 to N do
  begin
    a[i] := 200 * random - 100;
    write(' ', a[i]:0:3);
    if max < a[i] then max := a[i];
    if min > a[i] then min := a[i];
  end; 
  writeln;
  writeln;
  write('Результат: ', (min + max):0:3);
end.

@habb · 13.10.2013, 20:09

Сообщение от habb

Обчислиты

Не по теме:

Возможно я и ошибся. "Обчислиты" в переводе с украинского будет "вычислите" что ли?

@Dmitriy_11 1 / 1 / 1 Регистрация: 14.09.2013 Сообщений: 105
		1
	массив в паскале 13.10.2013, 19:33. Показов 626. Ответов 3 Метки нет (Все метки) задано одномерный массив действительных чисел. Составить программу для вычисления величин.Обчислиты сумму наименьшего и наибольшего элементов 0

@habb 25 / 25 / 12 Регистрация: 23.09.2013 Сообщений: 134
	13.10.2013, 20:09	4
	Сообщение от habb Обчислиты Не по теме: Возможно я и ошибся. "Обчислиты" в переводе с украинского будет "вычислите" что ли? 1