karinaklinaeva
04.10.2022 17:10

1) опишите на языке или одном из языков программирования алгоритм подсчета максималното
количества подряд идущих отрицательных элементов в целочисленном массиве длины 30.
2) дан целочисленный массив из 30 элементов. элементы массива могут принимать целочисленные
значение значения от -20 до 20 - сведения о температуре за каждый день ноября. опишите на
языке или на одном из языков программирования алгоритм, который находит и выводит максимальную
температуру среди дней, когда были заморозки (температура опускалась ниже нуля). гарантируется,
что хотя бы один день в ноябре была отрицательная температура.
исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не
описанные ниже, но разрешается не использовать часть из них.
паскаль
естественный язык
const n=30;
объявляем массив а из 30 элементов.
var a: array [1..n] of integer;
объявляем целочисленные переменные i, j,
i, j, max: integer;
begin
max. в цикле от 1 до 30 вводим элементы
for i: =1 to n do readln(a[i]); массива ас 1-го по 30-й.
end.
в качестве ответа вам необходимо фрагмент программы (или описание алгоритма на
естественном языке), который должен находиться на месте многоточия. вы можете записать решение
также на другом языке программирования (укажите название и используемую версию языка
программирования, например, borland pascal 7.0) или в виде блок-схемы. в этом случае вы должны
использовать те же самые исходные данные и переменные, какие были предложены в условии
(например, в образце, записанном на естественном языке).
3) опишите на языке или одном из языков программирования алгоритм вычисления среднего
арифметического элементов квадратной матрицы размером 5 на 5, стоящих на главной диагонали.
4) дан целочисленный массив из 30 элементов, все элементы которого – неотрицательные числа, не
превосходящие 1. опишите на языке или на одном из языков программирования
алгоритм, который находит и выводит минимальное трехзначное число, записанное в этом массиве.
если таких чисел нет, нужно вывести сообщение "таких чисел нет".
исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не
описанные ниже, но разрешается не использовать часть из них.
паскаль
естественный язык
const n=30;
объявляем массив а из 30 элементов.
var a: array [1..n] of integer;
объявляем целочисленные переменные i, j,
i, j, min: integer;
begin
min. в цикле от 1 до 30 вводим элементы
for i: =1 to n do readln(a[i]); массива ас 1-го по 30-й.
end.
в качестве ответа вам необходимо фрагмент программы (или описание алгоритма на
естественном языке), который должен находиться на месте многоточия. вы можете записать решение
также на другом языке программирования (укажите название и используемую версию языка
программирования, например, borland pascal 7.0) или в виде блок-схемы. в этом случае вы должны
использовать те же самые исходные данные и переменные, какие были предложены в условии
(например, в образце, записанном на естественном языке).

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
saharok16
23.02.2021 02:27
Формальное решение на случай, если Ваш QBasic не распознаёт кириллицу(формальное, потому что отображаться будет правильно, но текст с кириллицей ввести не получится):

DIM S$, C$
CLS
INPUT "BBEDITE TEXT: ", S$
k = 0
S$ = LCASE$(S$)
FOR i = 1 TO LEN(S$)
C$ = MID$(S$, i, 1)
IF (C$ = " ") OR (C$ = "Ґ") OR (C$ = "Ё") OR (C$ = "®") OR (C$ = "г") OR (C$ = "л") OR (C$ = "н") OR (C$ = "о") OR (C$ = "п") THEN
k = k + 1
END IF
NEXT i
PRINT "k = "; k
END

Если поддерживает кириллицу:

DIM S$, C$
CLS
INPUT "BBEDITE TEXT: ", S$
k = 0
S$ = LCASE$(S$)
FOR i = 1 TO LEN(S$)
C$ = MID$(S$, i, 1)
IF (C$ = "а") OR (C$ = "е") OR (C$ = "и") OR (C$ = "о") OR (C$ = "у") OR (C$ = "ы") OR (C$ = "э") OR (C$ = "ю") OR (C$ = "я") THEN
k = k + 1
END IF
NEXT i
PRINT "k = "; k
END
0,0(0 оценок)
Ответ:
iermin98
14.03.2022 08:26
CONST N = 15
DECLARE SUB KM30 (A%(), k)

DIM A%(N), B%(N)
CLS
RANDOMIZE TIMER

PRINT "A("; N; "): ";
FOR i = 1 TO N
A%(i) = RND * N
PRINT A%(i);
NEXT i
PRINT

CALL KM30(A%(), k)

PRINT "B("; N; "): ";
FOR i = 1 TO N
B%(i) = RND * N
PRINT B%(i);
NEXT i

CALL KM30(B%(), k2)

IF k > k2 THEN
Z = 1
ELSE
Z = 0
END IF
PRINT , "Z = "; Z
END

SUB KM30 (A%(), k)
FOR i = 1 TO N
IF A%(i) MOD 3 = 0 THEN
k = k + 1
END IF
NEXT i
END SUB

Пример работы программы:

A( 15 ):  0  3  0  14  10  15  8  14  3  8  6  11  11  15  6
B( 15 ):  1  1  1  5  3  5  10  6  3  9  14  8  5  14  2
Z =  1
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота