Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 16, средняя оценка - 4.81
Vadysha
0 / 0 / 0
Регистрация: 04.01.2011
Сообщений: 3
#1

Переписать элементы массива X в массив Y и подсчитать их количество. - Pascal ABC

04.01.2011, 19:43. Просмотров 2796. Ответов 2
Метки нет (Все метки)

Массив: Х(70)
Условия и ограничения:-1≤Хi≤1
Переписать элементы массива X в массив Y и подсчитать их количество.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.01.2011, 19:43
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Переписать элементы массива X в массив Y и подсчитать их количество. (Pascal ABC):

Дано линейный массив действительных чисел. Найти все положительные элементы данного массива и подсчитать их количество - Pascal ABC
Дано линейный массив действительных чисел. Найти все положительные элементы данного массива и подсчитать их количество.

Массив: Элементы массива,значения которых не принадлежат интервалу [A,B],разделить на 100 и подсчитать количество таких элементов. - Pascal ABC
Дан массив X(N). Элементы массива,значения которых не принадлежат интервалу ,разделить на 100 и подсчитать количество таких элементов....

Дан массив X (N). Элементы массива, значения которых не принадлежат интервалу [A,B], разделить на 100 и подсчитать количество таких элементов - Pascal ABC
Дан массив X (N). Элементы массива, значения которых не принадлежат интервалу , разделить на 100 и подсчитать количество таких элементов....

переписать положительные элементы массива х в массив у и подсчитать их количество - Pascal
дан массив х(70)-1<=xi<=1. переписать положительные элементы массива х в массив у и подсчитать их количество.

68. (6 б.) Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n). Подсчитать количество тех и других. - Pascal
68. (6 б.) Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n). Подсчитать количество тех и...

перечислить элементы массива D в массив E и подсчитать в них количество положительных чисел. - Pascal
А. дан D(50) и -1<x<=1 перечислить элементы массива D в массив E и подсчитать в них количество положительных чисел. Б. дан D(10,10) ...

2
Dekio
Фрилансер
Эксперт С++
5837 / 1218 / 214
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
04.01.2011, 20:44 #2
Pascal
1
2
3
4
5
6
7
8
j:=0;
for i:=1 to 70 do
if (x[i]>=-1) and (x[i]<=1) then
begin
inc(j);
y[j]:=x[i];
end;
writeln(j);
0
Vadysha
0 / 0 / 0
Регистрация: 04.01.2011
Сообщений: 3
04.01.2011, 22:59  [ТС] #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program zad1;
 
var
  buf:Real;
  X, Y:array[1..70] of Real;
  i, n,k,v:Byte;
 
begin
write('Введите кол-во массивов:k ');
readln(k);
for v:=1 to k do
  begin
    read(buf);
 
    if (buf>=-1) and (buf<=1)
    then begin
      n:=n+1;
      X[n]:=buf;
 
  for i:=1 to n do
    Y[i]:=X[i];
 
  write('X: ');
  for i:=1 to n do
    write(X[i]:0:1, ' ');
  Writeln;
 
  write('Y: ');
  for i:=1 to n do
    write(Y[i]:0:1, ' ');
  Writeln;
 
  Writeln('Количество элементтов: ', n);
end;
end;
end.
Вот типа такой, только чтобы сначала вводишь всё, а она потом подсчитывает. Как сделать
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.01.2011, 22:59
Привет! Вот еще темы с ответами:

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C - Pascal
Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C.

Переписать все элементы массива А в массив В, а элементы массива В - в массив А - Pascal
Ввести два одинаковой длины 1-мерных массивов А и В целого типа. Переписать все элементы массива А в массив В, а элементы массива В - в...

Требуется переписать элементы массива a в массив b в обратном порядке. Массив a заполняется случайными числами - Pascal ABC
Требуется переписать элементы массива a в массив b в обратном порядке. Массив a заполняется случайными числами. /Pascal ABC

Переписать элементы массива Х в массив У в обратном порядке.Вывести оба массива - Pascal ABC
Переписать элементы массива Х в массив У в обратном порядке.Вывести оба массива. Определить наименьший элемент массива У и его...


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

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

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