Найти среднее арифметическое элементов массива

@SPORTsMEN000 · Регистрация: 28.11.2009

Author24 — интернет-сервис помощи студентам

помогите пожалуйста составить программы на паскале
1)Найти среднее арифметическое элементов массива,больших числа 10.
2)Дан одномерный массив из 15 элементов.поставить в обратном порядке элементы,расположенные между максимальными и минимальными элементами,включая их.
3)дан двумерный массив.вывсести на экран все элементы второго столбца массива.
4)известно кол-во очков,набранной каждой из 20 команд-участниц первенства по футболу.перечень очков дан в порядке убывания(ни одна пара команд ни набрала одинаковое количество очков).Определить,какое место заняла команда,набравшая n очков(естественно,что значение n имеется в перечне).условный оператор не использовать.

@Тамила · 22.12.2009, 20:50

1.

Pascal

uses crt;
var
a:array[1..100]of integer;
i,n,sum,kol:integer;
sr:real;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
sum:=0;
kol:=0;
for i:=1 to n do
if a[i]>10 then
 begin
  sum:=sum+a[i];
  inc(kol);
 end;
sr:=sum/kol;
writeln('sredn./arifm.=',sr:2:3);
readkey;
end.

@SPORTsMEN000 · 22.12.2009, 20:52 **[ТС]**

спасибо огромное!а что означает эта строчка inc(kol);?

@SPORTsMEN000 · 22.12.2009, 20:53 **[ТС]**

создай свою тему пожалуйста

@Тамила · 22.12.2009, 20:57

Сообщение от SPORTsMEN000

inc(kol);

увеличение на 1...
все равно, что написать kol:=kol+1;

@SPORTsMEN000 · 22.12.2009, 20:59 **[ТС]**

остальные программы сделайте подалуйста!

@Тамила · 22.12.2009, 21:19

3.

Pascal

uses crt;
var
a:array[1..100,1..100]of integer;
i,j,m,n:integer;
begin clrscr;
write('m=');
read(m);
write('n=');
read(n);
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  read(a[i,j]);
 end;
writeln;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j],'  ');
  writeln;
 end;
writeln;
writeln('elementy 2-ogo stolbca:');
for i:=1 to m do
for j:=2 to 2 do
write(a[i,2],'  ');
readkey;
end.

Добавлено через 14 минут
2.

Pascal

uses crt;
var
a:array[1..100]of integer;
i,n,max,min,pmax,pmin:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
writeln('ishodnyi massiv:');
for i:=1 to n do
write(a[i],'  ');
max:=a[1];
min:=a[1];
writeln;
for i:=1 to n do
 begin
  if a[i]>max then
   begin
    max:=a[i];
    pmax:=i;
   end;
  if a[i]<min then
   begin
    min:=a[i];
    pmin:=i;
   end;
 end;
writeln('max=',max);
writeln('min=',min);
writeln;
writeln('preobrazovannyi massiv:');
if pmin<pmax then
 begin
  for i:=1 to pmin-1 do
  write(a[i],'  ');
  textcolor(red);
  for i:=pmax downto pmin do
  write(a[i],'  ');
  textcolor(white);
  for i:=pmax+1 to n do
  write(a[i],'  ');
 end;
if pmax<pmin then
 begin
  for i:=1 to pmax-1 do
  write(a[i],'  ');
  textcolor(red);
  for i:=pmin downto pmax do
  write(a[i],'  ');
  textcolor(white);
  for i:=pmin+1 to n do
  write(a[i],'  ');
 end;
readkey;
end.

@SPORTsMEN000 · 22.12.2009, 21:32 **[ТС]**

спасибо большое!еще 2 и 4 задачу!

@Тамила · 22.12.2009, 21:35

2.

Pascal

uses crt;
var
a:array[1..100]of integer;
i,n,max,min,pmax,pmin:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
writeln('ishodnyi massiv:');
for i:=1 to n do
write(a[i],'  ');
max:=a[1];
min:=a[1];
writeln;
for i:=1 to n do
 begin
  if a[i]>max then
   begin
    max:=a[i];
    pmax:=i;
   end;
  if a[i]<min then
   begin
    min:=a[i];
    pmin:=i;
   end;
 end;
writeln('max=',max);
writeln('min=',min);
writeln;
writeln('preobrazovannyi massiv:');
if pmin<pmax then
 begin
  for i:=1 to pmin-1 do
  write(a[i],'  ');
  textcolor(red);
  for i:=pmax downto pmin do
  write(a[i],'  ');
  textcolor(white);
  for i:=pmax+1 to n do
  write(a[i],'  ');
 end;
if pmax<pmin then
 begin
  for i:=1 to pmax-1 do
  write(a[i],'  ');
  textcolor(red);
  for i:=pmin downto pmax do
  write(a[i],'  ');
  textcolor(white);
  for i:=pmin+1 to n do
  write(a[i],'  ');
 end;
readkey;
end.

Добавлено через 1 минуту

Сообщение от SPORTsMEN000

2)Дан одномерный массив из 15 элементов.

правда, n у меня меняется.

@SPORTsMEN000 · 22.12.2009, 23:30 **[ТС]**

спасибо большое.и вот эту еще
4)известно кол-во очков,набранной каждой из 20 команд-участниц первенства по футболу.перечень очков дан в порядке убывания(ни одна пара команд ни набрала одинаковое количество очков).Определить,какое место заняла команда,набравшая n очков(естественно,что значение n имеется в перечне).условный оператор не использовать.

Добавлено через 1 час 8 минут
одна осталось!помогите пожалуйста!4)известно кол-во очков,набранной каждой из 20 команд-участниц первенства по футболу.перечень очков дан в порядке убывания(ни одна пара команд ни набрала одинаковое количество очков).Определить,какое место заняла команда,набравшая n очков(естественно,что значение n имеется в перечне).условный оператор не использовать.

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

@SPORTsMEN000 1 / 1 / 0 Регистрация: 28.11.2009 Сообщений: 85
		1
	Найти среднее арифметическое элементов массива 22.12.2009, 20:41. Показов 2978. Ответов 9 Метки нет (Все метки) помогите пожалуйста составить программы на паскале 1)Найти среднее арифметическое элементов массива,больших числа 10. 2)Дан одномерный массив из 15 элементов.поставить в обратном порядке элементы,расположенные между максимальными и минимальными элементами,включая их. 3)дан двумерный массив.вывсести на экран все элементы второго столбца массива. 4)известно кол-во очков,набранной каждой из 20 команд-участниц первенства по футболу.перечень очков дан в порядке убывания(ни одна пара команд ни набрала одинаковое количество очков).Определить,какое место заняла команда,набравшая n очков(естественно,что значение n имеется в перечне).условный оператор не использовать. 0

@SPORTsMEN000 1 / 1 / 0 Регистрация: 28.11.2009 Сообщений: 85
	22.12.2009, 20:52 [ТС]	3
	спасибо огромное!а что означает эта строчка inc(kol);? 0

@SPORTsMEN000 1 / 1 / 0 Регистрация: 28.11.2009 Сообщений: 85
	22.12.2009, 20:53 [ТС]	4
	создай свою тему пожалуйста 0

@Тамила 753 / 546 / 211 Регистрация: 12.11.2009 Сообщений: 1,100
	22.12.2009, 20:57	5
	Сообщение от SPORTsMEN000 inc(kol); увеличение на 1... все равно, что написать kol:=kol+1; 1

@SPORTsMEN000 1 / 1 / 0 Регистрация: 28.11.2009 Сообщений: 85
	22.12.2009, 20:59 [ТС]	6
	остальные программы сделайте подалуйста! 0

@SPORTsMEN000 1 / 1 / 0 Регистрация: 28.11.2009 Сообщений: 85
	22.12.2009, 21:32 [ТС]	8
	спасибо большое!еще 2 и 4 задачу! 0

@SPORTsMEN000 1 / 1 / 0 Регистрация: 28.11.2009 Сообщений: 85
	22.12.2009, 23:30 [ТС]	10
	спасибо большое.и вот эту еще 4)известно кол-во очков,набранной каждой из 20 команд-участниц первенства по футболу.перечень очков дан в порядке убывания(ни одна пара команд ни набрала одинаковое количество очков).Определить,какое место заняла команда,набравшая n очков(естественно,что значение n имеется в перечне).условный оператор не использовать. Добавлено через 1 час 8 минут одна осталось!помогите пожалуйста!4)известно кол-во очков,набранной каждой из 20 команд-участниц первенства по футболу.перечень очков дан в порядке убывания(ни одна пара команд ни набрала одинаковое количество очков).Определить,какое место заняла команда,набравшая n очков(естественно,что значение n имеется в перечне).условный оператор не использовать. 0