1.Сформировать одномерный массив из N элементов (значения элементов задаются пользователем). Найти сумму элементов массива, индексы которых делятся на 3 без остатка. Определить, сколько таких элементов в массиве. 2.Сформировать...

1.Сформировать одномерный массив из N элементов (значения элементов задаются пользователем). Найти сумму элементов массива, индексы которых делятся на 3 без остатка. Определить, сколько таких элементов в массиве. 2.Сформировать одномерный массив из 15 элементов (значения элементов задаются случайным образом). Увеличить элемент в 2 раза, если он стоит на чѐтном месте. Вывести на экран исходный и итоговый массивы. . Сформировать одномерный целочисленный массив A размерностью N. Запросить у пользователя индекс k и поменять местами элемент A[k-1] и A[k+1]. Вывести на экран исходный и итоговый массивы. Если k = 1 или N – вывести сообщение об ошибке
Гость
Ответ(ы) на вопрос:
Гость
// Задание 1 const   n = 100; var   a: array[1..n] of integer;   i, s: integer; begin   for i := 1 to 15 do   begin     write('a[', i, '] = ');readln(a[i]);     if i mod 3 = 0 then s := s + a[i];   end;   writeln('Сумма элементов, индексы которых кратны 3 = ', s); end. Тестовое решение: число элементов : 10 a[1] = 2 a[2] = 5 a[3] = 1 a[4] = 5 a[5] = 6 a[6] = 3 a[7] = 5 a[8] = 6 a[9] = 1 a[10] = 8 Сумма элементов, индексы которых кратны 3 = 5 // Задание 2 const   n = 100; var   a: array[1..n] of integer;   i: integer; begin   for i := 1 to 15 do   begin     a[i] := random(100);write(a[i]:4);   end;   writeln;   for i := 1 to 15 do   begin     if i mod 2 = 0 then a[i] := a[i] * 2;     write(a[i]:4);   end; end. Тестовое решение:   35  98  67  94  63  18  26  17   3   5   0  77  47  11  33   35 196  67 188  63  36  26  34   3  10   0 154  47  22  33 // Задание 3 const   m = 100; var   a: array[1..m] of integer;   i, n, k, tmp: integer; begin   write('число элементов : ');   readln(n);   for i := 1 to n do   begin     write('a[', i, '] = ');readln(a[i]);   end;   repeat     write('Введите к (k<>1 и k<>n)');     readln(k);     if (k = 1) or (k = n) then writeln('Ошибка, повторите ввод');   until (k <> 1) and (k <> n);   for i := 1 to n do write(a[i]:4);writeln;   tmp := a[k - 1];a[k - 1] := a[k + 1];a[k + 1] := tmp;   for i := 1 to n do write(a[i]:4); end. Тестовое решение: число элементов : 6 a[1] = 2 a[2] = 7 a[3] = 3 a[4] = 8 a[5] = 9 a[6] = 1 Введите к (k<>1 и k<>n)4    2   7   3   8   9   1    2   7   9   8   3   1
Не нашли ответ?
Ответить на вопрос
Похожие вопросы