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

UptoLike

ВУЗ: 

ЯГПУ им. Ушинского | Ярославль

Составители: 

Рубрика: 

46
22. Какой смысл имеет величина k в следующей серии команд
(1). k:=0;
for i:=1 to n do
begin
g:=summamod(a[i]);
if g=0 then k:=k+1
end;
(2). k:=0;
for i:=1 to n do
begin
g:=summamod(a[i]);
maximummod(a[i],l,ma);
if g=ma then k:=k+1 end;
(3). k:=0;
for i:=1 to n do begin
g:=summamod(a[i]);
d:=summa(a[i]);
if g=d then k:=k+1;
end;
(4). k:=0;
for i:=1 to n do begin
maximum(a[i],g,ma);
if ma<0 then k:=k+1
end;
(5). k:=0; k:=0;
for i:=1 to n do begin
maximum(a[i],g,ma);
maximummod(a[i],l,mam);
if mam<>ma then k:=k+1;
end;
(6). k:=0;
for i:=1 to n do
begin g:=summamod(a[i]);
d:=summa(a[i]);
if g<>abs(d) then k:=k+1;
end;
23. Составьте процедуры для:
(1). ввода одномерного числового массива,
(2). вывода одномерного числового массива,
(3). ввода двумерного числового массива,
(4). вывода двумерного
числового массива,
(5). нахождения суммы элементов одномерного массива,
(6). нахождения суммы элементов двумерного массива,
(7). нахождения произведения элементов одномерного массива,
(8). нахождения номера максимального элемента одномерного массива,
(9). нахождения номеров максимального элемента двумерного массива,
(10). нахождения номера последнего отрицательного элемента массива,
(11). нахождения номера первого нулевого элемента одномерного массива,
(12).
подсчета в данном слове количества вхождений заданной буквы,
(13). определения, есть ли в данном слове две одинаковые буквы подряд.

Страницы