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

Дан массив из указателей на целые числа, вывести все члены данного массива, кратные 3, кратные 5

14.03.2017, 00:05. Просмотров 1237. Ответов 2
Метки нет (Все метки)

Дан массив из указателей на целые числа вывести все члены данного массива кратные 3 , кратные 5
Заранее благодарю.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.03.2017, 00:05
Ответы с готовыми решениями:

Дан массив из указателей на целые числа, вывести все числа данного массива большие среднего арифметического
Дан массив из указателей на целые числа вывести все числа данного массива большие среднего...

Вывести на экран все целые числа от а до b ,кратные некоторому числу с
Вывести на экран все целые числа от а до b ,кратные некоторому числу с

Дан массив целых чисел. Заменить все элементы массива кратные 3, на третий элемент массива
Здравствуйте. Прошу опять помощи :-) Задача следующая: Дан массив целых чисел. Заменить все...

Напечатайте все двухзначные числа, которые кратные 5 и не кратные 3
в паскаль. помогите пожалуйста 1) Напечатайте все двухзначные числа, которые кратные 5 и не...

Удалить из матрицы все элементы, не кратные семи, но кратные трем
Заданная матрица целых чисел размером (M, N). Удалить из матрицы все элементы, не кратные семи,...

2
Hitoku
1726 / 1321 / 1405
Регистрация: 28.10.2016
Сообщений: 4,265
Завершенные тесты: 4
14.03.2017, 00:36 2
Лучший ответ Сообщение было отмечено IgorAvas как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
type p=^integer;
     ar=array[1..100] of p;
     par=^ar;
var pa:par;
    n,i:byte;
begin
     write('Количество элементов = '); readln(n);
     getmem(pa,n*4);
     for i:=1 to n do begin
     new(pa^[i]);
     pa^[i]^:=random(1000);
     end;
     for i:=1 to n do begin
       if (pa^[i]^ mod 5=0) or (pa^[i]^ mod 3=0) then
         write(pa^[i]^:6);
     end;
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5292 / 3152 / 2337
Регистрация: 22.11.2013
Сообщений: 8,875
14.03.2017, 08:04 3
Hitoku,
Pascal
9
  GetMem(pa,n*SizeOf(Integer));
FreeMem по завершении могут требовать, хотя система память завершившегося приложения зачистит сама.
0
14.03.2017, 08:04
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.03.2017, 08:04

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

Дан массив случайных чисел оазмерности n. Найти все трехзначные, кратные 7 элементы. Вычислить их сумму и количество
Дан массив случайных чисел оазмерности n. Найти все трехзначные, кратные 7 элементы. Вычислить их...

Вывести на экран все отрицательные элементы массива кратные 13
В эту тему я плохо "въехал", массивы и интервалы с ними, вопщем прошу написать ответ такой задачи:...

Вывести все натуральные числа, кратные 5, которые не превышают заданное число N
Вывести все натуральные числа, кратные 5, но которые не превышают число N, введенное пользователем...


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

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

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