Const n=10; var a,b:array [1..n] of integer; i,min1,min2,k:integer; begin randomize; For i:=1 to n do begin a[i]:=random(10); b[i]:=random(10); end; writeln (a); writeln (b); writeln; min1:=1000; min2:=1000; For i:=1 to n do begin if a[i]<min1 then min1:=a[i]; if b[i]<min2 then begin min2:=b[i]; k:=i end; end; if k<n then begin b[k+1]:=min1; writeln (a); writeln (b); end else writeln ('Минимальным является последний элемент'); end.
Я исправил ошибки, теперь она работает корректно, но если тебе нужно обязательно использовать if..else, то оставять коммент, я перепишу
#include <iostream>
using namespace std;
int main()
{
setlocale(0, "Rus");
int osenka; ;
cout << "Введите произвольную цифру от 2 до 5: ",
cin >> osenka;
if (osenka == 5) // Если введенная цифра равна 5.
cout << "Вы получили оценку «5» \n";
if (osenka == 4) //Если введенная цифра равна 4
cout << "Вы получили оценку «4». \n";
if (osenka == 3) //Если введенная цифра равна 3
cout << "Вы получили оценку «3». \n";
if (osenka == 2)
cout << "Вы получили оценку «2».\n";
return 0;
}
var
a,b:array [1..n] of integer;
i,min1,min2,k:integer;
begin
randomize;
For i:=1 to n do begin
a[i]:=random(10);
b[i]:=random(10);
end;
writeln (a);
writeln (b);
writeln;
min1:=1000;
min2:=1000;
For i:=1 to n do begin
if a[i]<min1 then min1:=a[i];
if b[i]<min2 then begin min2:=b[i]; k:=i end;
end;
if k<n
then begin
b[k+1]:=min1;
writeln (a);
writeln (b);
end
else writeln ('Минимальным является последний элемент');
end.
Примеры:
1)
[4,5,2,2,7,3,8,6,8,6]
[5,5,2,2,3,7,9,9,4,1]
Минимальным является последний элемент
2)
[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,7,2,1,4,0,9]
[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,0,2,1,4,0,9]
PS: Менять N можно в описании константы