//Pascal var A: array [1..5] of integer; min, max, minInd, MaxInd: integer; i: byte; begin writeln('Заполнение массива.'); for i := 1 to 5 do begin write('А[', i, '] = '); readln(A[i]); end; writeln; Max := A[1]; Min := A[1]; for i := 1 to 5 do begin if Max < A[i] then begin Max := A[i]; MaxInd := i; end; if Min > A[i] then begin Min := A[i]; MinInd := i; end; end; writeln('Номер минимального элемента = ', MinInd); writeln('Номера минимального и максимального = ', MinInd, ' и ',MaxInd); end.
4,5(94 оценок)
Ответ:
18.03.2020
/*VS C++*/ #include <iostream> #include <vector> using namespace std; int main() { vector<float>V(20); int n; cout << "Vvedite n = "; cin >> n; V.resize(n); for (int i = 0; i < V.size(); i++){ cout << "A[" << i << "]= "; cin >> V[i]; } float min = V[0]; float max = V[0]; for (int i = 0; i < V.size(); i++){ if (max < V[i]) max = V[i]; if (min > V[i]) min = V[i]; } cout << "Ishodnqj massiv" << endl; //Исходный for (int i = 0; i < V.size(); i++) { cout << V[i] << ' '; } cout << endl; V[n-1] = (max + min) / 2; cout << "Izmenennqj massiv massiv" << endl; //Измененный for (int i = 0; i < V.size(); i++) { cout << V[i] << ' '; } cout << endl; system("pause"); return 0; }
var
A: array [1..5] of integer;
min, max, minInd, MaxInd: integer;
i: byte;
begin
writeln('Заполнение массива.');
for i := 1 to 5 do
begin
write('А[', i, '] = '); readln(A[i]);
end;
writeln;
Max := A[1]; Min := A[1];
for i := 1 to 5 do
begin
if Max < A[i] then begin Max := A[i]; MaxInd := i; end;
if Min > A[i] then begin Min := A[i]; MinInd := i; end;
end;
writeln('Номер минимального элемента = ', MinInd);
writeln('Номера минимального и максимального = ', MinInd, ' и ',MaxInd);
end.