С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
qweas
0 / 0 / 0
Регистрация: 25.01.2010
Сообщений: 7
1

Подсчитать количество положительных элементов массива

25.01.2010, 20:44. Просмотров 1119. Ответов 6
Метки нет (Все метки)

Дан одномерный массив A[30], элементы которого формируются по формуле Аi =4i2 – 89i-14, где i - номер элемента в массиве А. Подсчитать количество положительных элементов массива, которые находятся после минимального элемента. На экран вывести сам массив, минимальный элемент, количество элементов. Помогите плиз!!!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.01.2010, 20:44
Ответы с готовыми решениями:

Подсчитать количество положительных элементов массива
Заполнить массив случайными числами в интервале и подсчитать количество...

Подсчитать количество положительных элементов массива
помогите решить задачки 1.Определите на какой день недели приходиться...

Подсчитать количество положительных элементов массива
в массиве {Zi-тое},i=1..10 есть положит. и отрицат. элементы. Подсчитать кол-во...

Подсчитать количество положительных элементов массива до максимального
Задан массив X={xi}; i=1,n; n<=20. Подсчитать количество положительных...

Подсчитать количество положительных, отрицательных и нулевых элементов массива
1) Дан Массив действительных чисел размерность которого N.Подсчитать сколько в...

6
Unrealler
654 / 352 / 113
Регистрация: 11.12.2009
Сообщений: 508
25.01.2010, 20:54 2
Цитата Сообщение от qweas Посмотреть сообщение
Аi =4i2 – 89i-14, где i - номер элемента в массиве А
А здесь разве будут положительные элементы?
0
qweas
0 / 0 / 0
Регистрация: 25.01.2010
Сообщений: 7
25.01.2010, 20:58  [ТС] 3
Цитата Сообщение от Unrealler Посмотреть сообщение
А здесь разве будут положительные элементы?
Такая задача 4i в кв.
0
Unrealler
654 / 352 / 113
Регистрация: 11.12.2009
Сообщений: 508
25.01.2010, 21:00 4
Положительных элементов здесь нет.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var a:array[1..30] of integer;
i,min,kol,r:integer;
begin
clrscr;
for i:=1 to 30 do
 begin
  a[i]:=4*i*2-89*i-14;
  write(a[i]:3);
 end;
writeln;
min:=a[1];
for i:=2 to 30 do
 if (a[i]<=min) then
  begin
   min:=a[i];
   r:=i;
  end;
writeln('ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ ',min);
for i:=r to 30 do
 if (a[i]>0) then kol:=kol+1;
writeln('Êîëè÷åñòâî ïîëîæèòåëüГ*ûõ ýëåìåГ*òîâ ïîñëå Г*ГҐГЈГ® ',kol);
readln
end.
1
qweas
0 / 0 / 0
Регистрация: 25.01.2010
Сообщений: 7
25.01.2010, 21:49  [ТС] 5
Большое спасибо!!! Формулу подправил показывает что есть 27

Добавлено через 6 минут
Pascal
1
2
3
4
5
6
writeln(' Минимальный элемент ',min); {наверное так}
for i:=r to 30 do
 if (a[i]>0) then kol:=kol+1;
writeln('Количество положительных элементов после него ',kol);
readln
end.
Добавлено через 25 минут
А нельзя ли сделать так чтоб числа массива выводились на экран через пробел, и я переделал чтоб искал отрицательные числа после минимального, она считает вместе с ним а надо кол-во после него
0
Puporev
Модератор
55511 / 42598 / 29446
Регистрация: 18.05.2008
Сообщений: 100,773
25.01.2010, 21:56 6
4i2 это наверное 4*i^2
0
qweas
0 / 0 / 0
Регистрация: 25.01.2010
Сообщений: 7
25.01.2010, 22:11  [ТС] 7
Цитата Сообщение от Puporev Посмотреть сообщение
4i2 это наверное 4*i^2
Да
0
25.01.2010, 22:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.01.2010, 22:11

В одномерном массиве подсчитать количество положительных элементов
В одномерном массиве К (20) подсчитать количество положительных,...

Подсчитать количество положительных и отрицательных элементов в массиве
Народ,помогите пожалуйста решить задачки и составить блок-схемы к ним..Очень...

Подсчитать в массиве количество положительных элементов меньших 8
Дано одномерный массив В с n целых чисел. Составить программу, посчитает...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru