Увеличить каждый элемент массива на 1 и вывести на экран - Pascal ABC

  1. Заполнить массив из 10 элементов случайными числами из интервала от -10 до 10, вывести на экран, затем увеличить каждый элемент массива на 1 и повторно вывести на экран.


textual

Код к задаче: «Увеличить каждый элемент массива на 1 и вывести на экран - Pascal ABC»

randomize;
for i:=1 to 10 do
 begin
  a[i]:=-10+random(21);
  write(a[i]:4);
 end;
writeln;
for i:=1 to 10 do
 begin
  a[i]:=a[i]+1;
  write(a[i]:4);
 end;

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

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



Похожие ответы
  1. Дана целочисленная прямоугольная матрица размера M*N. Отсортировать каждый столбец с четным номером по неубыванию, а каждый столбец с нечетным номером по невозрастанию.

  1. С клавиатуры вводится символьная строка длиной.определите, сколько раз встречается в строке каждый из входящих в неё символов

  1. Отсортировать каждый столбе матрицы с номером 2i по возрастанию элементов, а с номером 2i +1 по убыванию элементов методом вставки Все отсортировать по убыванию или возрастанию получается, а конкретно столбцы нет, думаю тут должен быть if then else Но куда его ставить и что должно быть условием мне не понятно

  1. Сформировать одномерный массив, каждый элемент которого равен сумме элементов соответствующей строки двумерного массива, меньших данного числа.

  1. Дан массив из n целых чисел.Заменить каждый элемент массива его знаком(положительный элемент-знаком "+",отрицательный элемент-знаком "-",нули-знаком "=").Для замены числа символом использовать соответствующую подпрограмму.

  1. Нужно написать программу, которая удаляет из введенной строки каждый символ, кратный n, при этом символы справа от удаленного сдвигаются влево

  1. Написать программу для решения задачи. Задан прямоугольник со сторонами а и b. Разбиваем его на части с помощью квадратов. Определить, сколько квадратов получится, если каждый раз выбирается самый большой квадрат.

  1. Последовательно вводятся n чисел. Увеличить значение каждого числа на 8

  1. помогите, пожалуйста, написать команду "если...то...иначе" для решения следующей задачи: если число f равно 26, то увеличить его на 9, иначе уменьшить на 19