Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
ocsoget
0 / 0 / 0
Регистрация: 28.05.2014
Сообщений: 30
#1

Сформировать новый массив из чётных значений элементов исходного - Turbo Pascal

10.06.2014, 17:17. Просмотров 396. Ответов 2
Метки нет (Все метки)

Дан массив, содержащий N элементов и заполненный случайными числами. Сформировать новый массив из чётных значений элементов данного массива и подсчитать сколько раз встречается в нем число большее K.
Т-паскаль.
http://www.cyberforum.ru/turbo-pascal/thread514992.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2014, 17:17
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сформировать новый массив из чётных значений элементов исходного (Turbo Pascal):

Сформировать новый массив из элементов исходного
Сформируйте массив, содержащий 5 элементов, с помощью датчика случайных чисел....

Сформировать новый массив из элементов исходного
дан массив х(N). получить новый массив y(n), такой, чтобы в нем сначало шли...

Сформировать новый массив из элементов исходного
Сформировать линейный массив A(n) размерности n (используя случайные числа от 1...

Используя подпрограмму сформировать новый массив из значений исходного больших 11 и имеющих индексы кратные 5
Дан целочисленный линейный массив, содержащий N элементов и заполненный с...

Сформировать новый массив из нечетных элементов исходного
Условие:Сформировать новый массив из нечетных элементов исходного. Программу...

2
urbic
130 / 121 / 124
Регистрация: 27.09.2012
Сообщений: 488
10.06.2014, 17:41 #2
Лучший ответ Сообщение было отмечено ocsoget как решение

Решение

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
37
38
39
40
41
42
43
44
program Massiv;
uses crt;
var
a: array [1..100] of integer;
b: array [1..100] of integer;
i,j,jk,n,k,kk: integer;
begin
clrscr;
writeln('BBEDITE n=');
readln (n);
for i:=1 to n do
begin
         a[i]:=random(100)+50;
         write(a[i]:4);
end;
{нахождение массива из четных чисел}
writeln;
j:=1;
jk:=0;
for i:=1 to n do
begin
     if a[i] mod 2=0 then
     begin
     b[j]:=a[i];
     j:=j+1;
     jk:=jk+1;
     end;
     end;
for i:=1 to jk do
begin
     writeln('b[',i,']=',b[i]:4);
end;
{нахождение чисел больших к}
write('Введите число K=');
readln(k);
kk:=0;
for i:=1 to jk do
begin
     if b[i]>k then kk:=kk+1;
end;
writeln('Количество чисел больших K=',kk:2);
readln;
 
end.
1
ocsoget
0 / 0 / 0
Регистрация: 28.05.2014
Сообщений: 30
10.06.2014, 17:45  [ТС] #3
спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2014, 17:45
Привет! Вот еще темы с решениями:

Сформировать новый массив состоящий из квадратов элементов исходного
дан 1й массив из N элементов сформировать новый массив состоящий из квадратов...

Из положительных элементов исходного массива сформировать новый массив
Составить на языке Паскаль программу, управляющуюся с помощью меню. 1)Из...

Сформировать новый массив из элементов исходного, имеющих четные значения и кратных последнему отрицательному
Дан одномерный целочисленный массив размерностью N. ,Сформировать новый массив...

Сформировать новый массив из исходного
Задан массив А. Получить из него новый массив путем деления элементов каждой из...


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

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

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