|
||||||||||
«Действия над двумя одномерными массивами»«Действия над двумя одномерными массивами» Вариант 3 Цель: Формирование навыков работы с вектором данных. Задание 1. Составьте программу увеличения всех элементов массива в 5 раз.
Задание 2. Составьте программу вставки в массив A(N) пятого элемента, равного 8.
Задание 3. Составьте программу формирования из массива A(N) двух массивов, в которых первый массив заполнен предшествующими максимальному, а второй – остальными элементами. Program st3; const nmax=50; var a, b, c: array [1.. nmax] of integer; j, n, imax: byte; begin repeat write('Размерность массива, не более ', nmax, ', n='); readln(n); until n in [1.. nmax]; writeln('Введите в строчку массив: '); imax: =1; for vari: =1 ton do begin read(a[i]); if a[i]> a[imax] then imax: =i; end; for vari: =1 toimax-1 do b[i]: =a[i]; j: =0; for vari: =imax ton do begin inc(j); c[j]: =a[i]; end; writeln('Макс. элемент: ', a[imax], ', под индексом: ', imax); writeln('Массив элементов до минимального'); for var i: =1 to imax-1 do write(b[i], ' '); writeln; writeln('Массив остальных элементов'); for var i: =1 to j do write(c[i], ' '); end.
Результат:
Самостоятельная работа №12 ВАРИАНТ 1 ВАРИАНТ 2 1. Составьте программу уменьшения всех элементов массива на 4. АРИАНТ 3 ВАРИАНТ 4
|
||||||||||
|