Дан массив. Получить другой массив, состоящий только из чисел исходного массива, кратных 3

@Брауберг · Регистрация: 25.06.2012

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

1) дан массив С(N). Получить другой массив, состоящий только из чисел исходного массива кратных 3, или сообщить что таких чисел нет. Полученный массив вывести в порядке возрастания элементов.

Заранее спасибо!!!

@Pahanuch · 25.06.2012, 14:22

Pascal

uses crt;
const N=10;
var
 min,i,j,ch: integer;
  C:array[1..N] of integer;
  new_mas:array[1..N] of integer;
begin
Randomize;
write('Исходный массив: ');
For i:=1 to N do
Begin
C[i]:=random(40)+5;
write(C[i], ' ');
end;
writeln();
write('Новый массив: ');
ch:=0;
For i:=1 to N do
Begin
if (C[i] mod 3=0) then
Begin
new_mas[i]:=C[i];
write(new_mas[i], ' ');
ch:=ch+1;
end;
end;
if (ch=0) then write('Чисел кратных 3-ем нет!');
end.

@Брауберг 0 / 0 / 0 Регистрация: 25.06.2012 Сообщений: 9
		1
	Дан массив. Получить другой массив, состоящий только из чисел исходного массива, кратных 3 25.06.2012, 13:28. Показов 1960. Ответов 1 Метки нет (Все метки) 1) дан массив С(N). Получить другой массив, состоящий только из чисел исходного массива кратных 3, или сообщить что таких чисел нет. Полученный массив вывести в порядке возрастания элементов. Заранее спасибо!!! 0

Опции темы

Дан массив. Получить другой массив, состоящий только из чисел исходного массива, кратных 3

Решение