я не шарю в программировании. Created by 3Человек3. informatika-ru

я не шарю в программировании...

3Человек3 @3Человек3

July 2022 1 8 Report

я не шарю в программировании

Answers & Comments

smnoregrets

Verified answer

// Программа и скриншот ее работы в приложениях.

const
    vt_max=30;

var
    i:byte;
    max,min:integer;
    vt:array[1..vt_max]of integer;

begin
writeln('Заполнение массива из ', vt_max ,' элементов случайными данными');

//начальные значения min и max
min:=512;
max:=0;
for i:=1 to vt_max do begin
    vt[i]:=random(-20,20);// диапазон случаынйх чисел
    write(vt[i]:6);

    if (vt[i]<min) then
      min:=vt[i];

    if (vt[i]>max) then
      max:=vt[i];
end;

writeln('');
writeln('Минимальный элемент = ', min);
writeln('Максимальный элемент = ', max);
writeln('Разность = ',max-min);

end.

2 votes Thanks 2

Answers & Comments

Verified answer

рекомендуемые вопросы

Helpful Links

Helpful Social