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

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
kalanda
0 / 0 / 0
Регистрация: 06.02.2018
Сообщений: 24
#1

Вывести только двузначные элементы массива, сохранив их относительное местоположение в исходном массиве - PascalABC.NET

10.02.2018, 00:03. Просмотров 133. Ответов 4
Метки нет (Все метки)

задан массив со случайными значениями вывести ,Только двузначные элементы массива, сохранив их относительное местоположение в исходном массиве , если можно в процедуре пожалуйста ,незнаю как код записать , если лень напишите пожалуйста только ту строку когда код программы сохраняет относительное местоположение в исходном массиве
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.02.2018, 00:03
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вывести только двузначные элементы массива, сохранив их относительное местоположение в исходном массиве (PascalABC.NET):

Выбрать только двузначные элементы массива, сохранив их относительное положение в исходном массиве - PascalABC.NET
написать програму . сам не понимаю если кто разбирается напишите код пожалуйста 1) Byte 2) Запись с полями: модель автомобиля; объем...

Вывести те элементы, которые стоят на каждом пятом месте в исходном массиве. - Pascal
Сформировать целочисленный массив на отрезке , содержащий 40 элементов. Вывести полученный массив на экран. Затем вывести те элементы,...

Вывести элементы, которые есть только в массиве А или только в массиве В - PascalABC.NET
Помогите пожалуйста! Вывести элементы, которые есть только в массиве А или только в массиве В. Алгоритм сортировки - пузырьком,...

Дан одномерный массив целых чисел. Вывести на экран все двузначные элементы этого массива. - Pascal
Ребята, помогите пожалуйста! Дан одномерный массив целых чисел. Вывести на экран все двузначные элементы этого массива.

Программа по нахождению четных чисел в массиве, заданном случайным образом (только двузначные числа) - PascalABC.NET
Procedure. Написать программу, которая находит в заданном случайным образом массиве (только двузначные числа) только четные и выводит их на...

Перебрать все двузначные числа и вывести на экран только те... - Pascal
в записи которых цифры отличны, вывести их количество.

4
Hitoku
Модератор
1346 / 942 / 481
Регистрация: 28.10.2016
Сообщений: 2,977
Завершенные тесты: 3
10.02.2018, 01:31 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
begin
  var a := ArrRandom(20, 0, 200); a.Println;
  a.Where(v -> (v > 9) and (v < 100)).Println;
end.
1
kalanda
0 / 0 / 0
Регистрация: 06.02.2018
Сообщений: 24
10.02.2018, 08:18  [ТС] #3
спасибо огромное

Добавлено через 9 минут
не подскажите куда это вставить и как в процедуру ввода массива или вывода? или в процедуру сортировки? принт я так понял это вывод?и паскаль ругается на a.where и a,println


Pascal
1
2
3
4
5
6
7
8
9
procedure printMas(na: byte;  a:massiv);           
var 
  i:byte;
    begin
    for i := 1 to na do 
 
    write(a[i]:3);
    writeln;
    end;
0
Puporev
Модератор
52993 / 40804 / 14055
Регистрация: 18.05.2008
Сообщений: 94,893
10.02.2018, 10:19 #4
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Цитата Сообщение от kalanda Посмотреть сообщение
паскаль ругается на a.where и a,println
Или у Вас не АВС.net, или очень уж старя версия, обновите.
Если нужно в стиле простого АВС, то так.
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
type mas=array of integer;
procedure massiv(var a:mas;var n:integer);
begin
write('Введите размер массива n=');
readln(n);
setlength(a,n);
writeln('Массив');
randomize;
for var i:=0 to n-1 do
 begin
  a[i]:=random(1000);
  write(a[i]:4);
 end;
writeln;
end;
procedure print_2z(a:mas;n:integer);
begin
writeln('Двузначные числа в порядке следования');
var k:=0;
for var i:=0 to n-1 do
if a[i] in [10..99] then
 begin
  write(a[i]:4);
  k:=1;
 end;
if k=0 then write('Двузначных чисел нет') 
end;
var a:mas;
    n:integer;
begin
massiv(a,n); 
print_2z(a,n);
end.
1
kalanda
0 / 0 / 0
Регистрация: 06.02.2018
Сообщений: 24
10.02.2018, 16:43  [ТС] #5
спасибо большое
0
10.02.2018, 16:43
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.02.2018, 16:43
Привет! Вот еще темы с ответами:

Из массива A [7]: 4143190 удалить нечетные элементы, встречающиеся в массиве только один раз - Pascal
Из массива A : 4143190 удалить нечетные элементы, встречающиеся в массиве только один раз. Должен получиться массив А:41410

Вывести в исходном порядке все различные элементы данного набора целых чисел - PascalABC.NET
Дано целое число N и набор из N целых чисел, упорядоченный по возрастанию. Данный набор может содержать одинаковые элементы. Вывести в том...

Определить местоположение минимального элемента массива. Обнулить элементы, стоящие до него - PascalABC.NET
В одномерном массиве из 10 элементов определить местоположение минимального элемента. Обнулить элементы, стоящие до него, но не сам этот...

Написать процедуру для распечатки на экране тех строк массива, которые содержат только двузначные числа. - Pascal
Решите пожалуйста задачи: 1. Две геометрические фигуры вырезаны из бумаги: отрезок длиной L и равнобедренный треугольник со сторонами В,...


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

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

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