Система задач и упражнений по языку программирования Pascal. Часть 1 - 39 стр.

UptoLike

39
else if a[i]=m then k:=k+1;
k:=1; m:=a[1];
for i:=1 to n do
if a[i]>m then begin m:=a[i]; k:=k+1; end;
ОТВЕТ:
1. k=1
2. k=3
26. Укажите смысловые ошибки в записи фрагмента программы. Попробуйте
предсказать реакцию машины или привести пример данных, при которых данный
фрагмент будет работать неверно.
(1). Max:=а[i];
for i:=1 to n do
if а[i]>max then max:=a[i];
(2). F:=1;K:=0;
FOR i:=1 TO N DO
IF A[i]<>0 THEN К:=К*A[i];
(3). a[1]:=max;
for i:=1 to n do
if а[i]>max then a[i]:=max;
(4). k:=0;
FOR i:=1 TO N DO
IF A[i]<>0 THEN
k:=k*A[i];k:=i;
(5). K:=0;S:=0;
FOR i:=1 TO N DO
IF A[i]>=0 THEN K:=K+1;S:=S+A[i]
(6). max:=а[1]; k:=1;
for i:=1 to n do begin
if а[i]>max then max:=a[i];
end;writeln(‘max=’,a[k]);
(7). I:=1;
while i<=n do
if a[i]<0 then s:=’да’ else s:=’нет’;
writeln(s);
(8).
i:=1;k:=0;
repeat if a[i]*a[i+1]<0 then
k:=k+1;
until i>=n;
writeln(‘количество
знакоперемен=’,k);
27. Написать фрагмент программы:
(1). для ввода элементов одномерного массива
(2). для вывода элементов одномерного массива
(3). для вычисления суммы элементов одномерного массива
(4). для вычисления произведения элементов одномерного массива
(5). для нахождения первого элемента одномерного массива со свойством Р
(6). для нахождения последнего элемента в одномерном массиве со свойством Р.
(7).
для подсчета количества элементов со свойством Р
(8). для нахождения минимума в одномерном массиве
(9). для удваивания максимального элемента в одномерном массиве
(10). для нахождения количества максимумов
(11). для нахождения первого отрицательного элемента массива, имеющего четный
номер
(12). для нахождения суммы максимального и минимального элементов
(13). для нахождения количества положительных
элементов, имеющих нечетные
номера
(14). для ввода элементов двумерного массива с клавиатуры
(15). для вывода элементов двумерного массива в виде матрицы
(16). для вычисления суммы положительных элементов двумерного массива
(17). для нахождения количества отрицательных элементов двумерного массива