Uses Crt;
var a:Array[1..100] of integer;
i,j,min,max,b,c,d,n: integer;
begin
Clrscr;
randomize; n:=random(10);
writeln('Введите массив:');
for i:=1 to n do
begin write('a[',i,']='); readln(a[i]); end;
for i:= 1 to n do
begin min:=a[i]; max:=a[i];
for j:=i to n do
begin
if a[j]<min then begin min:=a[j]; b:=j; end;
if a[j]>max then begin max:=a[j]; c:=j; end;
end;
d:=a[i]; a[i]:=a[b]; a[b]:=a[c]; a[c]:=d;
end;
writeln('Преобразованный массив:');
for i:=1 to n do
write('a',i,'=', a[i],' ');
end.
переделайте кто нить задачу что бы работала нормально и массив вводился автоматически.
Написал: Символ
23.12.2010 / 09:38
Ваш положительный голос за пользователя ForGotTen_HHTеаm успешно оставлен!
В данный момент его авторитет: 51
Всего положительных голосов: 57
Всего отрицательных голосов: 6
Написал: Символ
22.12.2010 / 13:59
Uses crt;
Var n,i,p:integer;
Begin
Clrscr;
write('Введите натуральное число ');
readln(n);
p:=0;
for i:=1 to n do
p:=p+(2*i-1)*2*i;
writeln('Значение выражения равно ',p);
end.
кто за плюс решит эту задачу через repeat-untel и whihe. до 8 утра надо сдать мне. выручайте еще
Написал: Символ
22.12.2010 / 12:06
контрольная работа:
1) УСЛОВНЫЙ ОПЕРАТОР IF:
даны числа фбибсю определить является ли число с среднем арифметическим чисел a и b/
2)ЦИКЛЫ
составить программу, которая запрашивает пароль (любое число) до тех пор, пока он не будет правильно введен.
p.s. нужно с объяснениями т.е. что за что отвечает в программе. я в этом просто плохо шарю, да и по другим предметам долгов много., не успеваю все делать(
Написал: Символ
15.12.2010 / 11:26