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

@IgorAvas · Регистрация: 12.10.2016

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

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

@Hitoku · 14.03.2017, 00:36

Pascal

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.

@bormant · 14.03.2017, 08:04

Hitoku,

Pascal

9	GetMem(pa,n*SizeOf(Integer));

FreeMem по завершении могут требовать, хотя система память завершившегося приложения зачистит сама.

@IgorAvas 0 / 0 / 0 Регистрация: 12.10.2016 Сообщений: 86
		1
	Дан массив из указателей на целые числа, вывести все члены данного массива, кратные 3, кратные 5 14.03.2017, 00:05. Показов 2879. Ответов 2 Метки нет (Все метки) Дан массив из указателей на целые числа вывести все члены данного массива кратные 3 , кратные 5 Заранее благодарю. 0

Опции темы

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

Решение