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

Pascal ABC

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

Массивы - Pascal ABC

09.12.2015, 19:37. Просмотров 332. Ответов 0
Метки нет (Все метки)

1. В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 6; 9; 7; 2; 1; 5; 0; 3; 4; 8 соответственно, т.е. A[0] = 6; A[1] = 9 и т.д.
Определите значение переменной c после выполнения следующего фрагмента программы.
Pascal
1
2
3
4
5
6
7
8
c := 0;
for i := 1 to 9 do
  if A[i-1] < A[i] then begin
    c := c + 1;
    t := A[i];
    A[i] := A[i-1];
    A[i-1] := t
  end;
В программе используется одномерный целочисленный массив A с индексами от 1 до 25. Ниже представлен фрагмент программы, в котором задаются значения элементов:
Pascal
1
2
3
4
5
n:= 25;
A[1]:= 2;
for i:= 2 to n do begin
  A[i]:= 2*A[i–1] mod 10;
end;
Чему будет равно значение A[25] после выполнения фрагмента программы?

2. В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:
Pascal
1
2
3
4
for i:=0 to 10 do
  A[i]:= i + 1; 
for i:=10 downto 0 do
  A[i]:= A[10-i];
Чему будут равны элементы этого массива?
1) 10 9 8 7 6 5 4 3 2 1 0
2) 11 10 9 8 7 6 5 4 3 2 1
3) 11 10 9 8 7 6 7 8 9 10 11
4) 1 2 3 4 5 6 5 4 3 2 1
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2015, 19:37
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Массивы (Pascal ABC):

Даны массивы A(8), F(8),Q(8). Сформировать массивы С(8), каждый элемент которого вычисляется по формуле - Pascal ABC
uses crt; type mas=array of integer; var A,F,Q,C:mas; i,s:integer; begin clrscr; writeln('Массив первый:'); for i:=1...

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai - Pascal
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi=...

массивы - Pascal
1) дан массив из 15 целых чисел найти сумму первых семи чисел и поставить ее на восьмое место (присвоить возьмому элементу сумму 7) 2)...

Массивы? - Pascal
program lab8; uses crt; type mas=array of integer; procedure Massiv(var v:mas;x:byte;a,b,d:integer;c:char); var i:byte; begin ...

Массивы - Pascal
Пользователь вводит числовой массив А, состоящий из n натуральных чисел. Поменяйте знак у всех элементов на противоположные.

Массивы - Pascal
Даны натуральные числа a1, a2, ..., an. Указать те, у которых остаток от деления на М равен L (0 ≤ L ≤ М – 1).

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2015, 19:37
Привет! Вот еще темы с ответами:

массивы - Pascal
ребят послезавтра зачет я уже 2 дня ломаю голову над след. задачами а вам наверно делов на 5 минут.. 1 Массив вещественных чисел A(N)...

Массивы - Pascal
Подскажите как в программе записать следующие строки? Определить с помощью FUNCTION для каждого массива сумму элементов с нечетными...

массивы - Pascal
Доброго времени суток всем! Прошу помощи с массивами. Задание ниже

массивы - Pascal
помогите пожалуйста) в одномерном массиве упорядочить только четные элементы в порядке убывания любым методом, оставив нечетные на своих...


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

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

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