сервис вопросов и ответовВвести массив А(N), N=7. Определите порядковый номер элемента, значение которого равно 49. Поменяйте местами элемент,
5-9 класс|
|
значение которого равно 49, и первый элемент массива. Полученные результаты выведите на экран
RitaRita20
08 марта 2017 г., 9:42:08 (7 лет назад)
Missilinskaya2013
08 марта 2017 г., 12:15:20 (7 лет назад)
const
n=7;
var
a:array [1..n] of integer;
i,k,buf:integer;
begin
for i:=1 to n do begin
write ('A[',i,'] = ');readln(a[i]);
if a[i]=49 then k:=i;
end;
writeln ('Before:');
for i:=1 to n do write(a[i],' ');
writeln;
writeln ('Index: ',k):
buf:=a[1];
a[1]:=a[k];
a[k]:=buf;
writeln ('After: ');
for i:=1 to n do write (a[i],' ');
readln;
end.
Ответить
Другие вопросы из категории
Срочно! Помогите, пожалуйста.
Задача по информатике:
Составить программу, в которой по дате (от 1 до 30) определяется, сколько дней осталось до конца месяца.
1. Модем – это …, согласующее работу… и телефонной сети. Вместо многоточий вставить соответствующие слова:
А) устройство, программы;
В) программа, компьютера;
С) программное обеспечение, компьютера;
D) устройство, дисковода;
E) устройство, компьютера;
2. Почтовый ящик абонента электронной почты – это:
А) часть оперативной памяти на сервере;
В) часть внешней памяти на сервере;
С) часть ОП на рабочей станции;
D) часть внешней памяти на рабочей станции;
E) номер телефона, с которым связан модем;
3. Чтобы соединить два компьютера по телефонным линиям, необходимо иметь:
А) модем на одном из компьютеров;
В) модем и специальное программное обеспечение на одном из компьютеров;
С) по модему на каждом компьютере;
D) по модему на каждом компьютере и специальное программное обеспечение;
Е) по два модема на каждом компьютере ( настроенных, соответственно, на прием и передачу) и специальное программное обеспечение
4. Протокол связи – это:
А) список абонентов компьютерной сети;
В) программа, приводящая компьютерное сообщение к стандартной форме;
С) соглашение о единой форме представления и способа пересылки сообщений;
D) список обнаруженных ошибок к передачи сообщений;
Е) маршрут пересылки сообщений
5. Rambler.ru является:
А) Web- сайтом;
В) браузером;
С) программой, обеспечивающей доступ в Интернет;
D) поисковым сервером;
Е) редактором HTML- документов.
6 Для просмотра Word Wide Web требуется:
А) знание IP- адресов;
В) текстовый редактор;
С) URL ( универсальный указатель ресурсов);
D) специальная программа с графическим интерфейсом – браузер;
Е) только подключение к Интернету;
7 Взаимодействие браузера с Web- сервером производится по протоколу:
А) ТСР; В) НТТР; С) FTP$ D) POP3; Е) IP;
8 Браузеры ( например, Internet Explorer) являются
А) серверами Интернета;
В) почтовыми программами;
С) средством создания Web- страниц;
D) средством просмотра Web- страниц;
E) средством ускорения работы коммуникационной сети.
9 Что необходимо для подключения домашнего компьютера к глобальной сети Интернет:
(1) сетевая плата;
(2) сетевой адаптер;
(3) модем;
(4) телефон;
(5) сетевое программное обеспечение;
создать одномерный массив A состоящий из 15 элементов заполнить с егооп правилу: каждый элемент массиваравен произведению его номера и числа Z вводимого с
клавиатуры. посчитать сумму элементов больгих 40
1. Автомобиль ехал несколько часов со скоростью V1 км/час, затем несколько часов со скоростью V2 км/час. Значения времени и скорости вводятся с
клавиатуры. Сколько км он проехал? Какова его средняя скорость?
Написать прогруамму в pascal
Читайте также
1.Дан массив
1 2 3 4 5 6 7 8
7 0 -8 -4 2 16 -10 2
А
Определите:
А) размерность массива;
Б) значение элемента А[3];
В) значение максимального элемента массива;
Г) индекс первого отрицательного элемента массива;
Д) индекс элемента, значение которого равно -4;
Е) Значение минимального элемента массива;
Ж) количество элементов массива, значения которых равно 2.
2.Привести пример отрицательного элемента массива с четным индексом.
3.Найти значение переменной Р.
p:=1;
For i:=3 to 5 do
p:=p*(2*i);
write(p);
4.
i:=2; s:=0;
while i<=8 do
begin
s:=s+s/2;
i:=i+2;
end;
write(s);
Дан одномерный массив B из N элементов, значения которых находятся в диапозоне от 0 до 325.
1) Заменить все чётные элементы на их номера. Вывести на экран исходный и новый массив.
2) Заменить все чётные элементы, стоящие на нечетных местах, на их номера.
Помогите, пожалуйста, решить задачу на языке программирования в Turbo Pascal: 1.Дан массив целых чисел, состоящий из 10 элементов.Заполнить его
с клавиатуры. Найти:
-Удвоенную сумму положительных элементов;
-вывести индексы тех элементов, значения которых больше значения предыдущего элемента(начиная со второго).
2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.
Вы находитесь на странице вопроса "Ввести массив А(N), N=7. Определите порядковый номер элемента, значение которого равно 49. Поменяйте местами элемент,", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.