В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
alenamorozova4
alenamorozova4
09.03.2023 06:07 •  Информатика

Напишите программы на ПАСКАЛЕ
1. Вывести квадрат 5х5 из чисел от 1 до 25 с “горизонтальной
разверткой”
2. Вывести квадрат 5х5 из чисел от 1 до 25 с “вертикальной
разверткой”
3. Вывести квадрат 5х5 из чисел от 1 до 25 “змейкой”. В первой строке
от 1 до 5, во второй от 10 до 6, в третьей 11 до 15 и т.д.

Показать ответ
Ответ:
sverhrazum123
sverhrazum123
05.08.2021 13:35

# Задача 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

0,0(0 оценок)
Ответ:
Aiauka11
Aiauka11
27.05.2020 17:49
Type mas=array[,]of integer;
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота