сервис вопросов и ответовПомогите написать программу в паскале. За ранее спасибо. Задача на одномерный массив. Задание 4. В одномерном массиве А[1..12]
10-11 класс|
|
необходимо поменять местами: а) первый и последний элементы массива; б) второй и минимальный элементы массива; в) третий и максимальный элементы массива; Вывести на экран исходный и результирующий массивы.
Fiesta715
09 мая 2014 г., 16:37:05 (9 лет назад)
ZNatoK98Rus
09 мая 2014 г., 18:07:40 (9 лет назад)
var
a:array [1..12] of integer;
min,max,buf,i:integer;
begin
randomize;
a[1]:=random(9)+1;
write (a[1],' ');
min:=1;
max:=1;
for i:=2 to 12 do begin
a[i]:=random(9)+1;
write (a[i],' ');
if a[i]>a[max] then max:=i else if a[i]<a[min] then min:=i;
end;
writeln;
{смена 1ого и последнего}
buf:=a[1];
a[1]:=a[12];
a[12]:=buf;
{смена 2ого и минимального}
buf:=a[2];
a[2]:=a[min];
a[min]:=buf;
{смена 3ого и максимального}
buf:=a[3];
a[3]:=a[max];
a[max]:=buf;
for i:=1 to 12 do write (a[i],' ');
writeln;
readln;
end.
ксюня07082
09 мая 2014 г., 20:49:12 (9 лет назад)
uses crt;
var
a:array [1..12] of integer;
min,max,j,i:integer;
begin
clrscr;
randomize;
writeln('Исходный массив');
for i:=1 to 12 do
begin
a[i]:=random(12)+1;
write (a[i]:4);
end;
min:=1;
max:=1;
for i:=2 to 12 do
begin
if a[i]>a[max] then max:=i;
if a[i]<a[min] then min:=i;
end;
writeln;
j:=a[1]; a[1]:=a[12]; a[12]:=j;
j:=a[2]; a[2]:=a[min]; a[min]:=j;
j:=a[3]; a[3]:=a[max]; a[max]:=j;
writeln('Новый массив');
for i:=1 to 12 do
write (a[i]:4);
end.
Ответить
Другие вопросы из категории
(разработка алгоритмов с циклами) Найти отношение суммы отрицательных У к количеству положительных значений У,где У=cos(x),x принадлежит[-3,15;2,18]с
шагом=0,37 написать блок схему
Можете помочь? Пожалуйста!
Под классом понимается:
1. структура, имеющая свойства
2. абстрактный тип данных, включающий набор данных и методов для их преобразования
3. множество объектов, имеющих общую структуру и общее поведение
4. совокупность данных, принадлежащих одному объекту
5. процесс дублирования одинаковых объектов
Читайте также
1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Помогите написать программу в паскале. Задание:На плоскости даны 2 точки А (х1; у2) и В (х2; у2), определить какая из них находится дальше от начала коо
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
Помогите написать программу в паскале. За ранее спасибо.
Задача на одномерный массив.
Задание 2.
Задан одномерный массив MAS2 [1..10].
Массив объявите как константу типа Integer размером [1..10] со следующими значениями: (-7, 89, 64, -43, 4, 6, 8, -12, 55, 99)
Замените все положительные элементы одномерного массива на их квадраты, а отрицательные удвойте.
Результат вывести на экран.
Вычислить сумму всех элементов нового массива и вывести на экран.
Исходный массив Новый массив
-7 -14
89 7921
64 4096
-43 -86
4 16
6 36
8 64
-12 -24
55 3025
99 9801
Сумма элементов нового массива 24835
Помогите написать программу в паскале. За ранее спасибо. Задача на двумерный массив. Задание 2.
Заполнить двухмерный массив NM [1..5,1..5] константами:
100 101 102 103 104
200 201 202 203 204
300 301 302 303 304
400 401 402 403 404
500 501 502 503 504
Помогите написать программу по Информатике! Найти произведение двузначных нечетных чисел, кратных
13.
Нужно написать программу на цикле с предусловием, на Паскале.
Вы находитесь на странице вопроса "Помогите написать программу в паскале. За ранее спасибо. Задача на одномерный массив. Задание 4. В одномерном массиве А[1..12]", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.