Напишите программы на ПАСКАЛЕ
1. Вывести квадрат 5х5 из чисел от 1 до 25 с “горизонтальной
разверткой”
2. Вывести квадрат 5х5 из чисел от 1 до 25 с “вертикальной
разверткой”
3. Вывести квадрат 5х5 из чисел от 1 до 25 “змейкой”. В первой строке
от 1 до 5, во второй от 10 до 6, в третьей 11 до 15 и т.д.
# Задача 1
# В массиве С = {1, 2, -3, 0, -1, -7, -9, 4, 5, -6, 3, 2, 9, 10, -7, -9, -5}
# найти количество соседств двух положительных элементов и количество
# двух отрицательных элементов.
c = [1, 2, -3, 0, -1, -7, -9, 4, 5, -6, 3, 2, 9, 10, -7, -9, -5]
count_pos = 0
count_neg = 0
for i, val in enumerate(c):
if i > 0:
if c[i - 1] < 0 and val < 0:
count_neg += 1
elif c[i - 1] > 0 and val > 0:
count_pos += 1
print("Количество двух соседних положительных элементов: ", count_pos)
print("Количество двух соседних отрицательных элементов: ", count_neg)
# Задача 2
# Отсортировать в матрице столбцы по убыванию
# значений элементов в первой строке.
# Матрицу задать самостоятельно.
import random
arr = [[random.randint(1, 20) for _i in range(4)] for _j in range(4)] # Матрица 4х4
N = len(arr)
# Печать исходной матрицы
print("\nИсходная матрица:")
for el in arr:
print(el)
# Сортировка матрицы
for i in range(N - 1):
for j in range(N - i - 1):
if arr[0][j] > arr[0][j + 1]:
for z in range(N):
arr[z][j], arr[z][j + 1] = arr[z][j + 1], arr[z][j]
print("\nОтсортированная матрица: ")
for el in arr:
print(el)
# Python 3.7.3
var
i,j:integer;
a:mas;
b:mas;
procedure masmin(a:array[,]of integer);
var
n,m,i,j:integer;
c:array of integer;
begin
n:=length(a,0)-1;
m:=length(a,1)-1;
setlength(c,m+1);
writeln('Массив минимумов:');
for i:=1 to m do
begin
for j:=1 to n do
begin
if j=1 then c[i]:=a[j,1];
if a[j,i]<c[i] then c[i]:=a[j,i];
end;
write(c[i],' ');
end;
writeln;
end;
begin
setlength(a,6,7);
writeln('Массив А:');
for i:=1 to 5 do
begin
for j:=1 to 6 do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
masmin(a);
writeln;
setlength(b,8,10);
writeln('Массив B:');
for i:=1 to 7 do
begin
for j:=1 to 9 do
begin
b[i,j]:=random(10);
write(b[i,j],' ');
end;
writeln;
end;
masmin(b);
end.