1. Выполните задание
Задан массив A: 2 4 10 8 0
Выполните трассировку программы и определите что будет выдано на печать:
const n=5;
var i,j,s: integer;
A,B: array[1..n] of integer;
begin
writeln('Введите массив A: ');
for i:=1 to n do read( A[i]);
writeln;
s:=A[2];
for i:=2 to n-1 do begin A[i]:=A[i+1]; A[i+1]:=A[i+1];end;
A[5]:=s;
writeln('Полученный массив A: ');
for i:=1 to n do write( A[i]:4);
end.
2. Проверка ДЗ
Рассмотреть решения задач array65 и array66.
3. Удаление и вставка элементов массива
Задан массив A: 2 4 10 8 0
Выполните трассировку программы и определите что будет выдано на печать:
const n=5;
var i,j,s: integer;
A,B: array[1..n] of integer;
begin
writeln('Введите массив A: ');
for i:=1 to n do read( A[i]);
writeln;
s:=A[2];
for i:=2 to n-1 do begin A[i]:=A[i+1]; A[i+1]:=A[i+1];end;
A[5]:=s;
writeln('Полученный массив A: ');
for i:=1 to n do write( A[i]:4);
end.
2. Проверка ДЗ
Рассмотреть решения задач array65 и array66.
3. Удаление и вставка элементов массива
Рассмотреть решение следующих задач: array90 (вместе), array102 (вместе), самостоятельно array103 (только перед минимальным).
4. Домашнее задание
Выполните задачу array103 (полностью).
Комментариев нет:
Отправить комментарий