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

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Леонид7600
0 / 0 / 0
Регистрация: 25.05.2015
Сообщений: 1
#1

В массиве обнулить элементы, имеющие значение, кратное своим порядковым номером - Pascal ABC

25.05.2015, 19:08. Просмотров 206. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста!Как обнулить элементы,имеющие значение,кратное своим порядковым номером?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2015, 19:08
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В массиве обнулить элементы, имеющие значение, кратное своим порядковым номером (Pascal ABC):

Обнулить элементы,имеющие значение больше 30 - Pascal ABC
Обнулить элементы,имеющие значение больше 30.

Найдите элементы массива, кратные своим порядковым номерам - Pascal ABC
Дан массив. Код Pascal abc Uses Crt; Type Mas = array of integer; Var L : Mas; i,y: integer; S,b:real; Begin Randomize;

Проверить есть ли в массиве элементы, имеющие одинаковое значение - Pascal ABC
а)Найти сумму четных элементов одномерного массива до первого встречного нулевого элемента.(4) в)Проверить есть ли в массиве...

В массиве все элементы, имеющие нечетное значение суммы индексов, заменить на максимальный элемент строки - Pascal
Народ!помогите пожалуйста решить задачу)) В массиве все элементы, имеющие нечетное значение суммы индексов, заменить на максимальный...

Обнулить элементы матрицы x, которых нет в массиве z и запомнить обнуленный элементы - Pascal ABC
Даны целочисленная матрица X целочисленный массив Z обнулить элементы матрицы X,которых нет в массиве Z и запомнить обнуленный элементы

В массиве все четные элементы обнулить - Pascal
Здравствуйте. Помогите, пожалуйста, решить задачи. Первые 4 задачи - часть А, след. 3 - часть В, и последние 3 - часть С. 1)В массиве все...

1
kot96
54 / 45 / 66
Регистрация: 17.08.2014
Сообщений: 151
25.05.2015, 21:08 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
program ex;
uses crt;
const N1 = 100;
var a : array[1..N1] of integer;
i,n:integer;
begin
write('количество элементов в массиве');readln(n);
randomize;
for i:=1 to n do
  a[i]:=random(100);
for i:=1 to n do
  write(a[i],' ');
writeln();
for i:=1 to n do
  begin
  if (a[i]mod i=0) then
  a[i]:=0;
  end;  
  writeln();
  writeln('обнулили элементы кратные своим порядковым номерам:');
for i:=1 to n do
  write(a[i],' ');
  writeln();
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2015, 21:08
Привет! Вот еще темы с ответами:

В массиве удалить все положительные элементы, имеющие четный порядковый номер - Pascal ABC
В массиве А=(a1,a2,...,an) удалить все положительные эллементы имеющие четный порядковый номер и идущие после минимального элемента...

В одномерном массиве А=(а1,а2...аn) все положительные элементы, имеющие чётный порядковый номер - Pascal
Помогите плиз написать программу: В одномерном массиве А=(а1,а2...аn) все положительные элементы, имеющие чётный порядковый номер,...

Обнулите элементы массива, имеющие чётное значение - Pascal
Дан массив d(8,8) случайными целыми числами в интервале . Введите значения элементов массива в виде матрицы, причём на каждый элемент...

Удалить все элементы массива, имеющие наибольшее значение - Pascal ABC
удалить все элементы, имеющие наибольшее значение.


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

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

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