сервис вопросов и ответовЗадан массив из 12 вещественных чисел. Поменять местами два элемента массива, номера которых вводятся с клавиатуры. Вывести элемент после
5-9 класс|
|
замены.
Ashrapov2003
04 нояб. 2014 г., 21:42:14 (9 лет назад)
Kadyrovaa
04 нояб. 2014 г., 23:47:59 (9 лет назад)
uses crt;
const n=12;
var a:array[1..n] of real;
i,b,c:integer;
begin
for i:=1 to n do
readln(a[i]);
readln(b);
readln(c);
a[b]:=a[b]+a[c];
a[c]:=a[b]-a[c];
a[b]:=a[b]-a[c];
for i:=1 to n do
writeln(a[i]);
end.
Ответить
Другие вопросы из категории
Var k, m: integer;Dat: array[1..10] of integer;
Begin
Dat[1] := 16;
Dat[2] := 20;
Dat[3] := 20;
Dat[4] := 41;
Dat[5] := 14;
Dat[6] := 21;
Dat[7] := 28;
Dat[8] := 12;
Dat[9] := 15;
Dat[10] := 35;
m := 0;
for k := 1 to 10 do
if Dat[k]>m then
begin
m := Dat[k]
end;
writeln(m);
End.
с пояснениями, пожалуйста!
Читайте также
1)Задан массив из 11 целых чисел. Найти сумму элементов массива, кратных 5 2)Задан массив из 11 целых чисел. Посчитать количество нечётных
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
Помогите решить задачу по информатике:
Задан массив из N вещественных чисел,которые вводятся с клавиатуры. Отрицательные элементы уменьшить на 5, остальные заменить их номерами.
Помогите с информатикой:
Задан массив из N вещественных чисел,которые вводятся с клавиатуры. Отрицательные элементы уменьшить на 5, остальные заменить их номерами.Я ввела эту задачу в паскале и у меня требует ввод данных, что мне писать
Дан массив из 10 целых чисел от -20 до 20 и целое число (вводится с клавиатуры).
Напишите программу,определяющую,сколько в массиве чисел.
Вы находитесь на странице вопроса "Задан массив из 12 вещественных чисел. Поменять местами два элемента массива, номера которых вводятся с клавиатуры. Вывести элемент после", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.