Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите, написать нужно программку.Срочно.
Помогите, написать нужно программку.Срочно.
Дана матрица-вектор A (7). Если элементы вектора упорядочены по убыванию, то найти среднее арифметическое всех элементов, а в противном случае упорядочить вектор по убыванию
1 | Автор: nightwolf098 | 2011-05-23, 20:38   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2011-05-24, 07:58   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите, написать нужно программку.Срочно.
Страница 1 из 11
Поиск: