Составить процедуру обнуления всех положительных элементов массива

@Anton452 · Регистрация: 29.11.2012

Студворк — интернет-сервис помощи студентам

Составить процедуру обнуления всех положительных элементов в одномерном массиве A.
С помощью этой процедуры обнулить все положительные элементы в n-м и k-м столбце произвольной матрицы B.

Помогите!

@Puporev · 31.05.2013, 13:03

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses crt;
const nmax=20;
type mas=array[1..nmax] of integer; //ìàññèâ=ñòîëáåö ìàòðèöû
     mtr=array[1..nmax] of mas; //ìàòðèöà=ìàññèâ ñòîëáöîâ
procedure zero(var x:mas;n:byte); //ïðîöåäóðà çàìåíû
var i:byte;
begin
for i:=1 to n do
if x[i]>0 then x[i]:=0;
end;
var b:mtr;
    r,c,i,j,n,k:byte;
begin
randomize;
repeat
write('Êîëè÷åñòâî ñòðîê îò 1 äî ',nmax,' r=');
read(r);
until r in [1..nmax];
repeat
write('Êîëè÷åñòâî ñòîëáöîâ îò 2 äî ',nmax,' c=');
read(c);
until c in [2..nmax];
writeln('Ìàòðèöà B:');//çàïîëíèì ñòîëáöû ìàòðèöû
for j:=1 to c do
for i:=1 to r do
repeat
b[j][i]:=-5+random(11);
until b[j][i]<>0;   //áåç íîëåé
for i:=1 to r do //âûâåäåì ïîñòðî÷íî
 begin
  for j:=1 to c do
  write(b[j][i]:3);
  writeln
 end;
repeat
writeln('Ââåäèòå íîìåðà äâóõ ðàçíûõ ñòîëáöîâ îò 1 äî ',c);
read(n,k);
until(n in [1..c])and(k in [1..c])and(k<>n);
zero(b[n],r);
zero(b[k],r);
writeln('Çàìåíà ïîëîæèòåëüíûõ â ñòîëáöàõ ',n,',',k,' íà íîëè');
for i:=1 to r do
 begin
  for j:=1 to c do
  write(b[j][i]:3);
  writeln
 end;
end.

@celviano · 30.05.2016, 12:10

как эти символы сделать нормальными "'Г‚ГўГҐГ¤ГЁГІГҐ Г*Г®Г¬ГҐГ°Г* Г¤ГўГіГµ Г°Г*Г§Г*Г»Гµ Г±ГІГ®Г«ГЎГ¶Г®Гў Г®ГІ 1 Г¤Г® "

Новые блоги и статьи Все статьи Все блоги /
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .

@Anton452 2 / 3 / 1 Регистрация: 29.11.2012 Сообщений: 80

	Составить процедуру обнуления всех положительных элементов массива 31.05.2013, 12:23. Показов 2273. Ответов 2 Метки нет (Все метки) Составить процедуру обнуления всех положительных элементов в одномерном массиве A. С помощью этой процедуры обнулить все положительные элементы в n-м и k-м столбце произвольной матрицы B. Помогите! 1

@celviano 0 / 0 / 0 Регистрация: 28.12.2015 Сообщений: 22
	30.05.2016, 12:10
	как эти символы сделать нормальными "'Г‚ГўГҐГ¤ГЁГІГҐ ГГ®Г¬ГҐГ°Г Г¤ГўГіГµ Г°ГГ§ГГ»Гµ Г±ГІГ®Г«ГЎГ¶Г®Гў Г®ГІ 1 Г¤Г® " 0

Составить процедуру обнуления всех положительных элементов массива

Решение