Составить приложение на языке Pascal.
С помощью ПК произвести обработку одномерного массива, заданного
в таблице. Элементы одномерного массива задать числами в диапазоне
– 20 . . . +50. Необходимо:

описать массив

ввести элементы массива из заданного диапазона;

выполнить с элементами массива действия

вывести результаты на экран.

1

Ответы и объяснения

Лучший Ответ!
2012-03-24T02:34:18+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var a:array[1..10] of integer;

i,min:integer;

Begin

  min:=1;

  for i := 1 to 10 do begin

    a[i]:= random(50+20) - 20;

    if a[i]<a[min] then min:=i;

    writeln(a[i]);

  end; 

  writeln(a[min],min);

End.