|
Помогите, написать нужно программку.Срочно.
|
|
|
Дана матрица-вектор A (7). Если элементы вектора упорядочены по убыванию, то найти среднее арифметическое всех элементов, а в противном случае упорядочить вектор по убыванию
|
|
|
|
var
a:array[1..7]of byte;
i,j,k,sr:integer;
begin
for i:=1 to 7 do
read(a[i]);
for i:=1 to 7 do
if a[i]>a[i+1]then begin j:=j+1;sr:=sr+a[i];end;
if j=7 then writeln(round(sr/7)) else begin
for i:=1 to 7 do
for j:=1 to 6 do
if a[j]<a[j+1]then begin k:=a[j+1];a[j+1]:=a[j];a[j]:=k;end;
for i:=1 to 7 do
write(a[i],' ');
end.
"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
