Друзья,помогите решить задачки!Из практической части!
10-11 класс
|
var
i, j,n, p: integer;
a: array[1..12,1..12] of integer;
begin
writeln('Исходный массив:');
for i := 1 to 12 do
begin
for j:=1 to 12 do
begin
a[i,j] := random(100,300) + 1;
write(a[i,j]:5)
end;
writeln
end;
writeln('Измененный массив:');
for i := 1 to 12 do
for j := 7 to 12 do
for n := 7 to 12 do
if a[i,j] < a[i,n] then
begin
p := a[i,j];
a[i,j] := a[i,n];
a[i,n] := p
end;
for i := 1 to 12 do
begin
for j := 1 to 12 do write(a[i,j]:5);
writeln
end
end.
Другие вопросы из категории
представленное двоичным эквивалентом, перевести в число восьмеричного и шестнадцатеричного эквивалента 01110.10010
2. Для хранения растрового изображения размером 128х128 пикселей отвели 4 Кбайт памяти.Каково максимально возможное число цветов в палитре изображения?
спасибо заранее)
Читайте также
Из 15 арбузов 3 неспелых. Какова вероятность того, что из 3 вы- бранных арбузов 2 спелых?
Среди 10 доноров 4 имеют первую группу крови. Какова вероятность того, что из 2 наудачу выбранных доноров один имеет первую группу крови?
Дан массив А1,.......Аn. найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал:
program zadacha;
const
k=50;
var
a:array[1..k] of integer;
n,i:1..k;
c,v,max,min,prom:integer;
begin
for i:=1 to n do begin (здесь выскакивает ошибка о проверки диапазона)
a[i]:=random(50);
write(a[i],' ');
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
c:=i;
end;
if a[i]<min the begin
min:=a[i];
v:=i;
end;
end;
writeln('max=',max,'min=',min);
prom:=max; (вот с этой строчки и до конца помогите решить)
max:=min;
min:=prom;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i], ' ');
readln;
end.
оценка за четверть решается моя
... , xn, yn).
Спасибо за помощь!
острове каждый год появляется сундук с 100 кг золотого песка, к острову с одной стороны высаживается х пиратов, а с другой у матросов. Они дерутся за клад, в битве погибает 70% участников, 26% тяжело ранены. Монеты делятся среди оставшихся 4%. Определить количество победителей, тяжелораненых, погибших, а также количество золотого песка на 1 человека .