Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Одномерный массив из 6 элементов заполнить случайным образом числами от 5 до 17. Поменять местами 5-ый и 7-ой элементы массива, а 4-ый элемент

10-11 класс

увеличить в 3 раза. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.

Пожалуйста, помогите написать программу в Паскале.

мандаринка994 06 окт. 2013 г., 13:32:01 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Dashaasamarina
06 окт. 2013 г., 16:21:24 (10 лет назад)

Program enot;
Var a: array [1..6] of integer;
 i,p:integer;
begin
for i:= 1 to 6 do
 a[i]:= random(13)+5;
for i:= 1 to 6 do
write(a[i]:4);
writeln();
p:=a[5];
a[5]:=a[6];
a[6]:=p;
a[4]:=a[4]*3;
for i:= 1 to 6 do
write(a[i]:4);
end.

+ 0 -
Tstriltsiv
06 окт. 2013 г., 16:58:43 (10 лет назад)

Мб 5-ый и 6-ой элемент?

+ 0 -
MariaV2003
06 окт. 2013 г., 19:51:48 (10 лет назад)

Не, в условии 5-ый и 7-ой местами меняют. Спасибо большое)

+ 0 -
Wwwradost19691
06 окт. 2013 г., 21:29:56 (10 лет назад)

массив из 6 чисел, а менять надо 5-ый и 7-ой?

+ 0 -
Miroshkinalena
06 окт. 2013 г., 23:54:38 (10 лет назад)

Да, именно так. Но возможно в условии была ошибка, а я не обратила внимания.

+ 0 -
Tatosha123
07 окт. 2013 г., 1:07:50 (10 лет назад)

Скорее всего ошибка.

Ответить

Другие вопросы из категории

Ребят, выручайте срочно)

Как и когда мы обращаемся к процедурам или функциям в программе?

выдаёт ошибку #include <iostream>

using namespace std;

Void Vvod(int a)
{
int a[9];
for(int i=0; i<10;i++)
cin>>a[i];

return 0;

}

int sum(int a)
{
int a[9];
s=0;
for(int i=0;i<10;i++)
if (a<a[i]) && (a[i]<10)
s+=sqr(a[i]);
return s;
}

int main()
{
int a,b[9];
cout<<"Vvedite mas A";
Vvod(a);
cout<<"Vvedite mas B";
Vvod(b);

cout<<"sum A="<<sum(a);
cout<<"sum B="<<sum(b);

cin.get();
cin.get();
return 0;
}

В заданном тексте перевернуть каждое слово

Программу сделать с помощью процедур
Текст набить вручную(не больше 10 слов).
pascal

Читайте также

Дан массив целых чисел из 15 элементов, заполненный случайным образом числами из промежутка [ -20, 50 ].

Удалить из него все элементы, в записи которых есть цифра 5.
Вставить число k после всех элементов, кратных своему номеру (k вводится с клавиатуры).
Поменять местами первый положительный и последний отрицательный элементы.

№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от 0 до 100. Напишите программу, которая позволит найти сумму

двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.

№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от -100 до 100. Напишите программу, которая позволит

подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива

иЗ ЧИСЛА И МЕСЯЦА сВОЕГО РОЖДЕНИЯ СОСТАВЬТЕ ТРЕХЗНАЧНОЕ ЧИСЛО СЛЕДУЮЩИМ ОБРАЗОМ:ЕСЛИ ДЕНЬ В ДАТЕ РОЖДЕНИЯ-ЧИСЛО ОТ 1 ДО 9,ТО К ЦИФРЕ ИЗ ОБОЗНАЧЕНИЯ ДНЯ

ПРИПИШИТЕ ДВЕ ЦИФРЫ МЕСЯЦА(НАПРИМЕР,ДЛЯ ДАТЫ 02.03.93 ИСКОМОЕ ЧИСЛО 203)ЕСЛИ ДЕНЬ В ДАТЕ РОЖДЕНИЯ-ЧИСЛО ОТ 10 ДО 31,ТО К ДВУМ ЦИФРАМ ИЗ ОБОЗНАЧЕНИЯ ДНЯ ПРИПИШИТЕ ВТОРУЮ ЦИФРУ ИЗ ОБОЗНАЧЕНИЯ МЕСЯЦА(НАПРИМЕР,ДЛЯ ДАТЫ 23.11.93 ИСКОМОЕ ЧИСЛО 231) мОЯ ДАТА РОЖДЕНИЯ 30.05.95



Вы находитесь на странице вопроса "Одномерный массив из 6 элементов заполнить случайным образом числами от 5 до 17. Поменять местами 5-ый и 7-ой элементы массива, а 4-ый элемент", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.