Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Len4ik_pik
1 / 1 / 0
Регистрация: 05.10.2013
Сообщений: 115
1

Есть последовательность X1, ., X50. Узнать, есть ли среди них нулевые элементы, и если есть, то сколько

17.10.2013, 20:28. Просмотров 867. Ответов 1
Метки нет (Все метки)

Есть последовательность X1, ..., X50. Узнать, есть ли среди них нулевые элементы, и если есть, то сколько.(масив)
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.10.2013, 20:28
Ответы с готовыми решениями:

Дан массив А из 10 элементов. Проверить, есть ли в нем элементы, равные нулю. Если есть, найдите номер первого из них
Дан массив А из 10 элементов. Проверить, есть ли в нем элементы, равные нулю. Если есть, найдите...

Если все введенные числа положительны, то вывести их произведение,если среди них есть хотя бы один 0, то сумму
Помогите пожалуйста написать программу Если все введенные числа положительны, то вывести их...

Есть три числа. Найти среднее среди них (то есть число которое лежит между самым большим и самым маленьким)
Сделайте пожалуйста задачу. Сама задача ниже: Есть три числа. Найти среднее среди них (то есть...

Если в массиве есть отрицательные элементы, то подставьте вместо них среднее арифметическое
Народ помогите пожалуйста !! Дан массив t1....t20. Если в нем есть отрицательные элементы, то...

Определить, есть ли среди цифр заданного трехзначного числа есть одинаковые
Здравствуйте, необходима помощь в решении следующей задачи: Написать программу, в результате...

1
Kodzaev
3012 / 1900 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
17.10.2013, 20:32 2
Лучший ответ Сообщение было отмечено Len4ik_pik как решение

Решение

Если массив заполняется случайно, то так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  n = 50;
 
var
  x: array [1..n] of integer;
  i, k: integer;
 
begin
  for i := 1 to n do
  begin
    x[i] := Random(11) - 5;
    if x[i] = 0 then
      Inc(k);
    Write(x[i], #32);
  end;
  Writeln;
  if k = 0 then
    Writeln('В последовательности нет нулевых элементов')
  else
    Writeln('Количество нулевых элементов = ', k);
end.
Если вручную, то так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
  n = 50;
 
var
  x: array [1..n] of integer;
  i, k: integer;
 
begin
  for i := 1 to n do
  begin
    Readln(x[i]);
    if x[i] = 0 then
      Inc(k);
  end;
  Writeln;
  if k = 0 then
    Writeln('В последовательности нет нулевых элементов')
  else
    Writeln('Количество нулевых элементов = ', k);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.10.2013, 20:32

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

Проверить, есть ли в одномерном массиве X, A(n) и B(n) одинаковые элементы, если есть, то найти среди них наибольший
Проверить, есть ли в одномерном массиве X, A(n) и B(n) одинаковые элементы, если есть, то найти...

Узнать, есть ли среди элементов массива элементы с нечетными номерами, которые кратны 17, и если есть, посчитать их сумму
Проблема с заданием. Дан одномерный массив. Узнать, есть ли среди них элементы с нечетными...


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

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

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