Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.68/25: Рейтинг темы: голосов - 25, средняя оценка - 4.68
0 / 0 / 1
Регистрация: 03.11.2014
Сообщений: 6
1

Вывести на экран все элементы массива, большие заданного числа P

05.11.2014, 21:33. Просмотров 4667. Ответов 2
Метки нет (Все метки)


Доброго времени суток! помогите решить данную задачу в паскале АВС или Турбо Паскаль 7.0
Массив из 10 элементов задан датчиком случайных чисел от -10 до 10. Вывести на экран все элементы массива, большие заданного числа P.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.11.2014, 21:33
Ответы с готовыми решениями:

Вывести на экран все элементы заданного столбца матрицы большие заданного числа
помогите пожалуйста,завтра последний день( 1)Дан двумерный массив. Вывести на экран все элементы...

Функция,которая печатает все элементы массива, большие заданного числа
Дан массив, упорядоченный по убыванию {16, 13, 12, 8,5,4,1,-1,-2,-5}. Написать функцию, которая...

Вывести на экран все элементы массива, не большие, чем среднее арифметическое
Написать программу на Pascal. Найти среднее арифметическое положительных элементов массива....

Дан двумерный массив. Вывести на экран все элементы s-го столбца массива, большие k
Дан двумерный массив. Вывести на экран все элементы s-го столбца массива, большие k.

2
Эксперт Pascal/Delphi
6548 / 4408 / 4711
Регистрация: 05.06.2014
Сообщений: 21,664
05.11.2014, 21:50 2
Лучший ответ Сообщение было отмечено ученик111 как решение

Решение

Pascal
1
2
3
for i:=1 to 10 do
 if a[i]>p then
  write(a[i],' ');
0
0 / 0 / 1
Регистрация: 03.11.2014
Сообщений: 6
05.11.2014, 23:03  [ТС] 3
может кому пригодится решения задачи
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program chisla;
    
    var
      n, a, b, c,d: word;
    
    begin
      writeln('введите четырехзначное число');
      readln(n);
      a := n mod 10;{последняя цифра числа}
      n := n div 10;{уменьшаем число в 10 раз}
      b := n mod 10;{третья цифра числа}
      n := n div 10;{уменьшаем число в 10 раз}
      c := n mod 10;{вторая цифра числа}
      n := n div 10;{уменьшаем число в 10 раз}
      d := n;{первая цифра числа}
      if (a mod 2 = 0) and (a<>0) then  writeln('четвертая четная');
      if (b mod 2 = 0) and (b<>0) then  writeln('третья четная') ;
      if (c mod 2 = 0) and (c<>0) then  writeln('вторая четная') ;
      if (d mod 2 = 0) and (d<>0) then  writeln('первая четная') ;
     if (d mod 2 = 1) and (c mod 2 = 1) and (b mod 2 = 1) and (a mod 2 = 1) then
     writeln ('четных цифр нет')
    end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.11.2014, 23:03

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Вывести на экран два массива, элементами первого являются элементы, меньшие заданного значения, элементами второго - большие заданного значения
Задан массив целых чисел. Вывести на экран два массива, элементами первого являются элементы,...

Перехватив прерывание от таймера, вывести из массива А на экран все числа, большие 05h и меньшие 20h
В общем, есть программа, которая выполняет следущее: Дан массив A из 10 однобайтовых чисел....

Вывести на экран числа большие заданного N
Задание.Вывести на экран числа большие заданного N. Вроде все работает, но выдает ответ всегда 10...

Вывести на экран числа Фиббоначи, большие заданного
Помогите пожалуйста с программой: Вывести на экран числа Фиббоначи, большие А, сумма которых не...


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

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

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