Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 15.09.2014
Сообщений: 6
1

Задать массив целыми числами в диапазоне [0.100] и удалить все элементы , у которых последняя цифра 8

21.09.2014, 21:25. Показов 1217. Ответов 1
Метки нет (Все метки)

Задать массив целыми числами в диапазоне [0..100] и удалить все элементы , у которых последняя цифра 8
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.09.2014, 21:25
Ответы с готовыми решениями:

Удалить все элементы массива, в которых последняя цифра четная, а само число делится на неё
Дана массив (n), n <=20, заполненный случайными числами из интервала . Разработайте программу,...

Заполнить массив из 100 элементов случайными целыми числами в диапазоне от 1 до 100
Мне очень нужна помощь, надеюсь откликнетесь... помогите написать, пожалуйста! 1. Заполнить...

Массив В(15) заполнить целыми случайными числами в диапазоне от 1 до 100
Массив В(15) заполнить целыми случайными числами в диапазоне от 1 до 100. Построить строку маску...

массив из 20 элементов заполняется случайными целыми числами в диапазоне от0 до 100 и выводит на экран в строку. Массив сортируется классическим спосо
массив из 20 элементов заполняется случайными целыми числами в диапазоне от0 до 100 и выводит на...

1
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
21.09.2014, 21:55 2
Лучший ответ Сообщение было отмечено Sonne89 как решение

Решение

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
uses crt;
const nmax=100;
var  a:array[1..nmax] of integer;
     n,i,j,p,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(101);
  write(a[i]:4);
 end;
writeln;
i:=1;
while i<=n do
if a[i] mod 10=8 then
 begin
  for j:=i to n-1 do
  a[j]:=a[j+1];
  n:=n-1;
 end
else i:=i+1;
writeln('Удаление чисел, оканчивающихся на 8:');
for i:=1 to n do
write(a[i]:4);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.09.2014, 21:55

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Удалить из массива все числа, в которых первая и последняя цифра совпадают
Удалить из массива все числа, в которых первая и последняя цифра совпадают.

Задать массив случайными вещественными числами в диапазоне значений от -90 до +100
Разработать программу и блок-схему для решения следующей задач. Задать массив случайными...

Создать стек со случайными целыми числами. Удалить все элементы, равные первому
Создать стек со случайными целыми числами. Удалить все элементы, равные первому.

Удалить из массива все элементы, в которых есть цифра 5
Дан массив целых чисел (n=10), заполненный случайным образом числами из промежутка : 1. описать...


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

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

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