Const n=20;
var a: array[1..n] of integer;
i, max, imax, min, imin : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write(a[i],' ');
end;
writeln;
max:=a[1]; imax:=1; min:=a[1]; imin:=1;
for i:=2 to n do
begin
if a[i] > max then begin max:=a[i]; imax:=i; end;
if a[i] < min then begin min:=a[i]; imin:=i; end;
end;
writeln('max=',max,' min=',min);
a[imax]:=min; a[imin]:=max;
writeln('Измененный массив:');
for i:=1 to n do write(a[i],' '); writeln;
end.
Пример:
Исходный массив:
-20 6 40 -34 -31 48 1 -24 -35 24 23 8 -13 28 22 -38 26 35 -3 0
max=48 min=-38
Измененный массив:
-20 6 40 -34 -31 -38 1 -24 -35 24 23 8 -13 28 22 48 26 35 -3 0
Program pascal;
var n :longint;
begin
writeln ('Введите число:');
read(n);
if n>0 then
if n mod 10 =0 then writeln('Число ',n,' кратное 10')
else
writeln('Число ',n,' не кратное 10');
end.
Решение смотри во вложении.
Добрый день!
И так, начнём..
*Вопрос: <span><span>Изменится ли строка ST, над которой произведут операцию COPY? Почему?
</span>*Ответ: <u>Изменится</u>, т.к. при использовании функции <span>COPY </span>необходимо указывать в какой строке копировать, с какой позиции, и количество символов, которое будет копировано.
**Вопрос: </span><span>Чему будет равняться k после операции k:=length(‘мышь и клавиатура’)?
**Ответ: Переменная k будет равна <u>17</u>, т.к. функция LENGTH определяет длину строки, считая каждый пробел, запятую, буквы и т.д.
***Вопрос: </span><span>Чему будет равняться переменная tx после операции tx:=‘лесник’; delete(tx,4,3)?
***Ответ: Переменная tx будет равна слову <u>лес</u>. </span><span>Функция </span>DELETE<span> удаляет часть символов из строки. В нашем случае удаление происходит в строке tx, с позиции 4, удаляет 3 символа.
****Вопрос: </span><span>Чему будет равняться переменная k после операции tx:=‘баобаб’; k:=pos(‘ба’,tx)?
****Ответ: Переменная k будет равна <u>1</u>. Т.к. функция POS определяет первое вхождение заданного символа.
Дополненная программа:
program zadacha1;
var t: string; b: string[1]; n, k, i: integer;
begin
writeln('Введите текст: ');
<em>readln(t);</em>
n := length(t);
k := 0;
for i := 1 to n do begin
b := copy(t, i, 1);
<em>if (t[i] = 'a') or (t[i] = 'A') or (t[i] = 'а') or (t[i] = 'А')</em> then k := k + 1;
end;
writeln ('k= ', k);
<span>end.
</span></span><span><span>
*<em>Курсивом и выделением обозначены дополнения в программе.</em></span></span>