дан массив из целых чисел X[1..5]. Заменить каждый элемент массива с нечетным номером средним арифметическим индексов соседних элементов.
5-9 класс
|
var
x : array [1..5] of real;
i : integer;
begin for i := 1 to 5 do
if i mod 2 = 1 then
x[i] := (i+1+i-1)/2;
for i := 1 to 5 do
writeln (x[i]:3:2);
end.
Пожалуйста решите
Другие вопросы из категории
2.Какую файловую структуру используют операционная система на ваших компьютерах(одноуровневую,многоуровневую)?
3.Сколько физических дисководов работает на ваших компьютерах?Сколько логических дисков находится на физических и какие имена они имеют в операционной системе?
4.каким правилам подчиняются имена файлов в вашей ОС?
5.Что такое путь к файлу на диске,полное имя файла?
6.научитесь инициализировать работу программ из программных файлов(типа exe,com)
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
Формат входных данных
В певой строке входного файла содержится одно целое число n(1<=n<=200).Во второй строке находятся n целых чисел a1,a2...aN (-1000<=ai<=1000)-елементы массива.
Формат выходных данных
В единственной строке выходного файла выведите одно слово "YES",если в этом массиве есть три числа сумма которых равна нулю.Иначе выведите "NO".
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.