помогите решить задачу в фри паскале на тему массив:уменьшить элементы,стоящие на четных местах на второй элемент массива
5-9 класс
|
var
i,n:integer;
a:array[1..10]of integer;
begin
write('Исходный массив');
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln;
n:=a[2];
writeln('Преобразованный массив');
for i:=1 to 10 do
begin
if (i mod 2=0) then a[i]:=a[i]-n;
write(a[i],' ');
end;
end.
Другие вопросы из категории
2.в корзине лежат 20 шаров 10 синих 5 зеленых 4 желтых и 1 красный.сколько информации несет сообщение о том что из ящика случайным образом достали шар?!
Читайте также
что угодно, помогу)Вот задача - Под конец учебного года ученики 11 класса решали понять у кого же из них будет самый высокий средний балл ? Известно , что - в классе учится 14 учеников, - Сумма всех средних баллов аттестата = 100.Известно также , что первый ученик имел средний балл, который составляет 1/ 12 суммы всех средних баллов. Второй ученик - на 0,15 % больше, чем первый ученик , но на 1,75 % меньше , чем третий ученик . Средние баллы аттестатов двух сестер были равными среднему арефметичному оценок вышеупомянутых учеников , разделенном на 1.5 . Четвертый ученика на конец года имел такой же балл , как и первый ученик , но на 5% меньше , а остальные ученики - имели равные баллы .Какой средний балл на конец года получил каждЫй?
1.Одномерный массив заполнен любыми числами. Заменить отрицательные элементы их модулями.
2.Одномерный массив заполнен целыми числами. Возвести в квадрат элементы, стоящие на четных местах.
1. В массиве все отрицательные элементы переместить в начало массива, а остальные в конец с сохранением порядка следования.
2. Дана последовательность целых чисел, среди чисел есть одинаковые, создать массив различных чисел последовательности и полученный массив отсортировать по возрастанию.
Четные элементы массива умножить на 25,а от нечетных отнять 10; Дано число k и массив a(10).прибавить k ко всем элементам массива,кратным 5
вывести все нечетные числа от -15 до 15.