сервис вопросов и ответовдан массив из целых чисел X[1..5]. Заменить каждый элемент массива с нечетным номером средним арифметическим индексов соседних элементов.
5-9 класс|
|
Hiuaz02
08 сент. 2014 г., 0:40:47 (9 лет назад)
Соня021101
08 сент. 2014 г., 2:21:29 (9 лет назад)
const n = 5;
var x: array[1..n] of integer;
i: integer;
begin
for i := 1 to n do
readln(x[i]);
for i := 1 to n do
if i = 1 then x[1] := 2
else
if (i = n) and (n mod 2 <> 0) then x[n] := n - 1
else
if i mod 2 <> 0 then x[i] := ((i + 1) + (i - 1)) / 2;
for i := 1 to n do
writeln(x[i]);
end.
___________________________________________
var m, n, m1, n1, k: integer;
ch, ost: real;
begin
readln(m, n);
m1 := m;
n1 := n;
k := 0;
if m<n then begin
ost:=m/n; ch:=0;
end;
if m=n then begin
ch:=1;
ost:=0;
end;
if m>n then begin
while m1 > 0 do begin
if m1 = n then begin
k := k + 1;
break;
end;
m1 := m1 - n;
k := k + 1;
end;
ch := k - 1;
if m1 = n then begin ost := 0;ch := k;end
else
begin
ost := (m1 + n1) / n1; ch := k - 1;end;
end;
writeln(ch, ' ', ost);
end.
______________________________
const n=5;
var a:array[1..n] of real;
i,k:integer;
b,p:real;
begin
k:=1;
for i:=1 to n do
readln(a[i]);
writeln('введите число');
readln(b);
for i:=1 to n do begin
if a[i]<b then begin
p:=a[k];
a[k]:=a[i];
a[i]:=p;
k:=k+1;
end;
end;
for i:=1 to n do
writeln(a[i]);
end.
Ответить
Другие вопросы из категории
Определите разрешающую способность изображения, если глубина цвета 4 бита, а информационный объем изображения 2,5 кбайт. Сколько цветов в палитре?
Помогите пожалуйста,очень нужно
Помогите решить!
Составить программу вычисления значений функции F(x) на отрезке [a,b] с шагом h. Результат первое значение аргумента второе- соответствующая значению функция.
записать в паскале (не через массив)
Задание 1. номер 9
в программе описан одномерный целостный массив А с индексами от 0 до 10. Ниже предоставлен фрагмент этой программы, в котором значения элементов массива
сначала задаются, а затем меняются.
For i:=0 to 10 do
A[i]:=i;
t:=A[0];
for i:=1 to 10 do
A[i-1]:=a[i];
A[10]:=t
Чему будут равны элементы этого массива?
1) 10 10 10 10 10 10 10 10 10 10
2)1 2 3 4 5 6 7 8 9 10 0
3) 0 0 0 0 0 0 0 0 0 0
4) 1 2 3 4 5 6 7 8 9 10 1
Читайте также
1). Дан массив из n элементов (n >= 4). Подсчитать среднюю арифметическую второго и предпоследнего элемента массива.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
Дан массив из N целых чисел a1,a2...,aN.Вам нужно проверить,есть ли в этом массиве три числа сумма которых равно нулю.
Формат входных данных
В певой строке входного файла содержится одно целое число n(1<=n<=200).Во второй строке находятся n целых чисел a1,a2...aN (-1000<=ai<=1000)-елементы массива.
Формат выходных данных
В единственной строке выходного файла выведите одно слово "YES",если в этом массиве есть три числа сумма которых равна нулю.Иначе выведите "NO".
решить через паскаль через массивы)) 1.Дан одномерный массив из 10 элементов. Заменить все большие 7 члены массива числом 7. Найти количество
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
1. Дан массив А из 10 элементов, которые заполняются случайным образом, числам от 0 100. Выведите массив на экран и найдите максимальный элемент массива.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
Вы находитесь на странице вопроса "дан массив из целых чисел X[1..5]. Заменить каждый элемент массива с нечетным номером средним арифметическим индексов соседних элементов.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.