1 вопрос
Написать программу. Ввести c клавиатуры массив из 10 элементов, увеличить каждый элемент на 5 и вывести на экран.
2 вопрос
Написать программу. Ввести c клавиатуры массив из 10 элементов. Увеличить на 5 все элементы в первой половине
массива и увеличить в 5 раз все элементы во второй половине массива. Вывести на экран.
3 вопрос
Написать программу. Заполните массив A из 10 элементов пятерками.
ПАСКАЛЬ

1. Увеличить каждый элемент массива на \(5\).
program Zadanie1;
var a: array[1..10] of integer;
    i: integer;
begin
  for i := 1 to 10 do
    read(a[i]);
  for i := 1 to 10 do
  begin
    a[i] := a[i] + 5;
    write(a[i], ' ');
  end;
end.

2. Увеличить элементы первой половины на \(5\), а второй — в \(5\) раз.
program Zadanie2;
var a: array[1..10] of integer;
    i: integer;
begin
  for i := 1 to 10 do
    read(a[i]);
  for i := 1 to 5 do
    a[i] := a[i] + 5;
  for i := 6 to 10 do
    a[i] := a[i] * 5;
  for i := 1 to 10 do
    write(a[i], ' ');
end.

3. Заполнить массив пятёрками.
program Zadanie3;
var a: array[1..10] of integer;
    i: integer;
begin
  for i := 1 to 10 do
  begin
    a[i] := 5;
    write(a[i], ' ');
  end;
end.

0 0 Пожаловаться