Сформировать массив из 30 элементов, заполнить его случайными числами из [-100; 100], распечатать его в строчку. найти и вывести на экран минимальный элемент этого массива и его индекс. напишите саму программу и блок-схему.
Ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки.
program arrdiap;
var
N, A, B, i: Integer;
M: array of Integer;
begin
Write ('Введите размерность массива: ');
ReadLn (N);
SetLength (M, N);
Randomize;
for i := Low (M) to High (M) do begin
M [i] := Random (100);
Write (M [i], ' ');
end;
WriteLn;
Write ('Введите диапазон A, B: ');
ReadLn (A, B);
WriteLn;
WriteLn ('Принадлежит диапазону ', A, ' - ', B, ':');
for i := Low (M) to High (M) do begin
if (M [i] >= A) and (M [i] <= B) then
Write (M [i], ' ');
end;
ReadLn;
end.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.