INPUT "n="; n
DIM a(n) AS INTEGER
RESTORE
FOR i = 1 TO n
READ a(i)
NEXT i
FOR i = 1 TO n - 1
mi = a(i): u = i
FOR j = i TO n
IF a(j) < mi THEN
mi = a(j): u = j
END IF
NEXT j
r = a(i): a(i) = mi: a(u) = r
<span>NEXT i
</span>FOR i = 1 TO n
PRINT a(i);
NEXT i
END
DATA 12,-3,34,2,76,0,-45,23,12,0,23,6
Home
End
стерлки (вверх,вниз,право,лево)
Ctrl + стрелка вправо
Ctrl + стрелка влево
Page Up
Page Down
Ctrl + Page Down
Ctrl + Page Up
Ctrl + Home
Ctrl + End
Shift + F5
Shift + стрелка вправо/влево
Я так понимаю из задания вы это хотели.
В следующий раз самостоятельно хоть попытайтесь сделать,и приложите ваше решение к вопросу.
#include<iostream>;
using namespace std;
int main()
{
int n;
float height, width,square=0;
cout << "pls enter count rectangle" << endl;
while (true) //Бесконе4ный цикл
{
cin >> n;
if (n <= 10 && n > 0)//как нашли-выходим из цикла
break;
}
cout << "pls enter height" << endl;
cin >> height;
cout << "pls enter width" << endl;
cin >> width;
cout << endl;
for (int i = 0; i < n; i++)
{
square = square + (height * width);
}
cout <<"your answer : "<< square << endl;
system("pause");
return 0;
}
PascalABC
var a:array of real;
i,n:integer;
begin
write('Задайте размер массива = ');readln(n);
setlength(a,n);
for i:=0 to n-1 do readln(a[i]);
writeln('Исходный массив: ',a);
for i:=0 to n-1 do a[i]:= -a[i];
writeln('Полученный массив: ',a);
end.
Var c:real
begin
readln(c);
c:=c*2;
writeln(c);
end.