1.
program z1;
var a:array [1..10] of integer;
i,k:integer;
begin
write ('Введите элементы массива через пробел и нажмите Enter ');
for i:=1 to 10 do read (a[i]);
write ('Массив: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
write ('Номера элементов больше 5: ');
for i:=1 to 10 do if a[i] > 5 then
begin
write (i,' ');
k:=k+1
end;
writeln;
writeln ('Элементов больше 5: ',k)
end.
2.
program z2;
var s:string;
begin
readln (s);
while pos('о',s)<>0 do delete(s,pos('о',s),1);
writeln(s)
end.
Объяснение:
Смотри картинки
2. Программа удаляет только строчные русские о
1.
program z1;
var a:array [1..10] of integer;
i,k:integer;
begin
write ('Введите элементы массива через пробел и нажмите Enter ');
for i:=1 to 10 do read (a[i]);
write ('Массив: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
write ('Номера элементов больше 5: ');
for i:=1 to 10 do if a[i] > 5 then
begin
write (i,' ');
k:=k+1
end;
writeln;
writeln ('Элементов больше 5: ',k)
end.
2.
program z2;
var s:string;
begin
readln (s);
while pos('о',s)<>0 do delete(s,pos('о',s),1);
writeln(s)
end.
Объяснение:
Смотри картинки
2. Программа удаляет только строчные русские о
m1 = 20;
n1 = 20;
var
x: array[1..m1, 1..n1] of integer;
i, j, m, n, mx, mn: integer;
begin
Write('Введите через пробел число строк и столбцов матрицы: ');
Readln(m, n);
Randomize;
writeln(#13#10, 'Исходная матрица');
for i := 1 to m do
begin
for j := 1 to n do
begin
x[i, j] := Random(100) - 50;
Write(x[i, j]:5)
end;
Writeln
end;
for i := 1 to m do
begin
mx := x[i, 1]; mn := mx;
for j := 2 to n do
if mx < x[i, j] then mx := x[i, j]
else if mn > x[i, j] then mn := x[i, j];
Writeln('В строке ', i, ' мin=', mn, ', max=', mx)
end
end.
Тестовое решение:
Введите через пробел число строк и столбцов матрицы: 5 8
Исходная матрица
14 35 4 16 44 -14 47 36
-23 -40 16 43 40 48 21 46
23 30 -18 25 -43 -5 -3 37
24 -26 9 -37 36 23 -33 36
30 46 17 -18 -34 -35 36 28
В строке 1 мin=-14, max=47
В строке 2 мin=-40, max=48
В строке 3 мin=-43, max=37
В строке 4 мin=-37, max=36
В строке 5 мin=-35, max=46