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

@stvhAK · Регистрация: 24.09.2013

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

Составьте паскаль-программу для решения следующий задачи: «Дан одномерный массив действительного типа. Получить другой массив, состоящий только из чисел исходного массива, меньших данного числа N, или сообщить, что таких чисел нет. Полученный массив вывести в порядке убывания элементов».

@rusik1994 · 01.11.2013, 19:53

Pascal

  const k=10;
var
a:array [1..k] of integer;
b:array [1..k] of integer;
n,i:integer;
begin
writeln('vvedite massiv');
for i:=1 to k do begin
readln(a[i]);end;
writeln('vvedite n=');
readln(n);
for i:=1 to k do begin;
if a[i]<n then b[i]:=a[i];
writeln(b[i]);
end;
readln;
end.

Новичок · 02.11.2013, 01:21

rusik1994, введите в своей программе такой массив,
1 2 3 4 5 6 7 8 9 10
и пусть N=6
Ваша прога выдаст,
1 2 3 4 5 0 0 0 0 0
А нулей этих быть не должно.
Ну и плюс я бы сделал возможность ввода размера массива.И еще вы забыли,что если нет элементов меньших N,то нужно вывести сообщение.Мой вариант,

Pascal

var a,b:array [1..10] of integer;
n,i,j,k:integer;
begin
j:=0;
Write('Количество элементов:');
Read(k);
Writeln('Введите элементы массива:');
for i:=1 to k do Read(a[i]);
Write('N=');
Read(n);
for i:=1 to k do 
if a[i]<n then 
begin
j:=j+1;
b[j]:=a[i];
end;
if j<>0 then
begin
Writeln('Полученный массив:');
for i:=1 to j do Write(b[i],' ');
Writeln;
end else Writeln('Элементов меньших числа N не найдено!');
Readln;
end.

@stvhAK 0 / 0 / 0 Регистрация: 24.09.2013 Сообщений: 10
		1
	Получить другой массив, состоящий только из чисел исходного массива, меньших данного числа N 31.10.2013, 20:31. Показов 1562. Ответов 2 Метки нет (Все метки) Составьте паскаль-программу для решения следующий задачи: «Дан одномерный массив действительного типа. Получить другой массив, состоящий только из чисел исходного массива, меньших данного числа N, или сообщить, что таких чисел нет. Полученный массив вывести в порядке убывания элементов». 0

	02.11.2013, 01:21

Опции темы

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

Решение