решить: (тестовое решение)
1.в массиве состоящем из n элементов , заменить отрицательные элементы числом 15
2.в массиве,состоящем из n элементов,подсчитать сумму чисел, значения которых меньше 10
295
390
Ответы на вопрос:
Procedure wr( ch: char; c: integer ); var i: integer; begin for i : = 1 to c do write(ch); end; procedure square( n: integer ); var i: integer; begin wr( '*', n ); writeln; for i : = 2 to n-1 do begin write( '*' ); wr( ' ' ); writeln( '*' ); end; wr( '*', n ); writeln; end;
Популярно: Информатика
-
Муликил20.12.2022 09:04
-
Розалиндами77706.12.2022 04:27
-
Спартак210204.01.2023 20:05
-
жанель6704.08.2022 02:41
-
RassiaScream11.07.2021 01:51
-
Васелёк0517.07.2020 06:16
-
MasterGameTV123.10.2021 08:06
-
dani6119.11.2021 21:00
-
kense14.05.2021 09:06
-
Sukhareva150921.11.2021 20:13