Преобразовать массив, прибавив к четным числам первый элемент - Turbo Pascal

  1. Дан целочисленный массив размера N. Преобразовать его, прибавив к четным1|нечетным2 числам первый3|последний4 элемент. Первый и последний элементы массива не изменять


textual

Код к задаче: «Преобразовать массив, прибавив к четным числам первый элемент - Turbo Pascal»

const n=10; var a:array[1..n] of integer;
i:integer;
begin
randomize;
 for i:=1 to n do begin
a[i]:=random(100); write(a[i]:7); end;
writeln('.....');
for i:=2 to n-1 do if a[i] mod 2=0 then then a[i]:=a[i]+a[1] else a[i]:=a[i]+a[n];
for i:=1 to n do write(a[i]:7);
readln
end.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.786 из 5



Похожие ответы
  1. Произвольно заданы три одномерных массива. Сформировать новый массив, состоящий из десяти элементов с наибольшими значениями исходных массивов. Помогите пожалуйста! Нужно написать программу с while и repeat!!!(отдельные)

  1. Здравствуйте. Дан типизированный файл, число компонент которого кратно четырем. Файл состоит из целых чисел не равных нулю, число положительных компонент файла равно числу отрицательных. Необходимо преобразовать файл так, чтобы два положительных числа чередовались с двумя отрицательными. Без использования массива :-( Прошу помощиДобавлено через 11 часов 6 минут Пытаюсь сделать с помощью доп.файла, но что-то делаю не так

  1. Преобразовать двоичное число в виде строки в десятичное число

  1. Данный алгоритм преобразовать в код Код цел таб A[1:5, 1:5] нц для i от 1 до 5 нц для j от 1 до 5 если i >= j то A[i, j] := i - j иначе A[i, j] := j - i все кц кц Заранее благодарен...

  1. В файле находятся цифры, записанные через пробел. Нужно их считать, преобразовать в римские и записать в другой файл. Помогите, пожалуйста, переделать код. Код, который работает с одной цифрой:

  1. Помогите исправить программу:

  1. Дана матрица F(5,6) действительных чисел. Преобразовать ее путем деления всех элементов на максимальный элемент матрицы.

  1. Допустим есть char c[2] = '24' // Я знаю что не по-паскалевски написал, но думаю так понятно Как перевести в интеджеровскую переменную это число (я знаю что val но как-то не получается)?

  1. Дана неквадратная матрица строк. Сформировать одномерный массив, каждый элемент которого равен латинской букве, которая наиболее часто используется при записи элементов соответствующей строки. (помогите написать прогу, где описывается последнее условие)

  1. Уже всю голову пробил, в чем ошибка? По сути программа должна выводить 2 массива - начальный и переработанный. на деле выходит, что получаю что-то в роде 37117 2 0 0 Вот само задание. Ниже мой вариант кода Дан массив байтов. Сформировать другой массив, в который нечетные элементы из первого массива переписать без изменений, а к четным прибавить 1.