Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами

@Zheka4190 · Регистрация: 21.11.2017

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

переведите на паскаль
Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
RANDOMIZE TIMER
INPUT "Введите m, n: ", m, n
DIM r(m, n)
PRINT "A="
FOR i = 1 TO m
  FOR j = 1 TO n
    r(i, j) = INT(RND * 21) - 10
    PRINT USING " ###"; r(i, j);
  NEXT
  PRINT
NEXT
FOR i = 1 TO m
  IF r(i, 3) < 0 THEN r(i, 3) = 0
NEXT
FOR j = 1 TO n
  IF r(5, j) > 0 THEN r(5, j) = r(5, j) ^ 2
NEXT
PRINT "A'="
FOR i = 1 TO m
  FOR j = 1 TO n
    PRINT USING " ###"; r(i, j);
  NEXT
  PRINT
NEXT

@bormant · 23.11.2017, 01:10

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const m=5; n=5; W=5;
var
  a: array [1..m,1..n] of Integer;
  i, j: Integer;
begin
  Randomize;
  for i:=1 to m do for j:=1 to n do a[i,j]:=-10+Random(21);
  WriteLn('A =');
  for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:5); WriteLn; end;
  for i:=1 to m do if a[i,3]<0 then a[i,3]:=0;
  for j:=1 to n do if a[5,j]>0 then a[5,j]:=Sqr(a[5,j]);
  WriteLn('A''=');
  for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:4); WriteLn; end;
end.

Добавлено через 5 минут
Или с динамическимми размерами, если поддерживается:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const W=5; ti=5; tj=3;
var
  a: array of array of Integer;
  i, j, m, n: Integer;
begin
  Randomize;
  repeat Write('Введите m (>=',ti,')  n (>=',tj,'): '); ReadLn(m,n);
  until (m>=ti) and (n>=tj);
  SetLength(a,m,n);
  for i:=1 to m do for j:=1 to n do a[i,j]:=-10+Random(21);
  WriteLn('A =');
  for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:W); WriteLn; end;
  for i:=1 to m do if a[i,tj]<0 then a[i,tj]:=0;
  for j:=1 to n do if a[ti,j]>0 then a[ti,j]:=Sqr(a[ti,j]);
  WriteLn('A''=');
  for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:W); WriteLn; end;
end.

Добавлено через 36 минут
или не поддерживается:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const W=5; ti=5; tj=3;
type
  PIntArr = ^TIntArr;
  TIntArr = array [1..$FFFE div SizeOf(Integer)] of Integer;
  PPIntArr = ^TPIntArr;
  TPIntArr = array [1..$FFFE div SizeOf(PIntArr)] of PIntArr;
var
  a: PPIntArr;
  i, j, m, n: Integer;
begin
  Randomize;
  repeat Write('Введите m (>=',ti,')  n (>=',tj,'): '); ReadLn(m,n);
  until (m>=ti) and (n>=tj);
  GetMem(a,m*SizeOf(a^[1])); for i:=1 to m do GetMem(a^[i],n*SizeOf(a^[1]^[1]));
  for i:=1 to m do for j:=1 to n do a^[i]^[j]:=-10+Random(21);
  WriteLn('A =');
  for i:=1 to m do begin for j:=1 to n do Write(a^[i]^[j]:W); WriteLn; end;
  for i:=1 to m do if a^[i]^[tj]<0 then a^[i]^[tj]:=0;
  for j:=1 to n do if a^[ti]^[j]>0 then a^[ti]^[j]:=Sqr(a^[ti]^[j]);
  WriteLn('A''=');
  for i:=1 to m do begin for j:=1 to n do Write(a^[i]^[j]:W); WriteLn; end;
  for i:=1 to m do FreeMem(a^[i],n*SizeOf(a^[1]^[1])); FreeMem(a,m*SizeOf(a^[1]));
end.

Добавлено через 5 минут
или

Pascal
1
2
3
4
5
6
7
8
{$R-}
const W=5; ti: Integer=5; tj: Integer=3;
type
  PIntArr = ^TIntArr;
  TIntArr = array [1..1] of Integer;
  PPIntArr = ^TPIntArr;
  TPIntArr = array [1..1] of PIntArr;
...

Новые блоги и статьи Все статьи Все блоги /
Раскрываем внутренние механики Android с помощью контекста и манифеста mobDevWorks 07.07.2025 Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .	API на базе FastAPI с Python за пару минут AI_Generated 07.07.2025 FastAPI - это относительно молодой фреймворк для создания веб-API, который за короткое время заработал бешеную популярность в Python-сообществе. И не зря. Я помню, как впервые запустил приложение на. . .	Основы WebGL. Раскрашивание вершин с помощью VBO 8Observer8 05.07.2025 На русском https:/ / vkvideo. ru/ video-231374465_456239020 На английском https:/ / www. youtube. com/ watch?v=oskqtCrWns0 Исходники примера:	Мониторинг микросервисов с OpenTelemetry в Kubernetes Mr. Docker 04.07.2025 Проблема наблюдаемости (observability) в Kubernetes - это не просто вопрос сбора логов или метрик. Это целый комплекс вызовов, которые возникают из-за самой природы контейнеризации и оркестрации. К. . .	Проблемы с Kotlin и Wasm при создании игры GameUnited 03.07.2025 В современном мире разработки игр выбор технологии - это зачастую балансирование между удобством разработки, переносимостью и производительностью. Когда я решил создать свою первую веб-игру, мой. . .
Создаем микросервисы с Go и Kubernetes golander 02.07.2025 Когда я только начинал с микросервисами, все спорили о том, какой язык юзать. Сейчас Go (или Golang) фактически захватил эту нишу. И вот почему этот язык настолько заходит для этих задач: . . .	C++23, квантовые вычисления и взаимодействие с Q# bytestream 02.07.2025 Я всегда с некоторым скептицизмом относился к громким заявлениям о революциях в IT, но квантовые вычисления - это тот случай, когда революция действительно происходит прямо у нас на глазах. Последние. . .	Вот в чем сила LM. Hrethgir 02.07.2025 как на английском будет “обслуживание“ Слово «обслуживание» на английском языке может переводиться несколькими способами в зависимости от контекста: * Service — самый распространённый. . .	Использование Keycloak со Spring Boot и интеграция Identity Provider Javaican 01.07.2025 Два года назад я получил задачу, которая сначала показалась тривиальной: интегрировать корпоративную аутентификацию в микросервисную архитектуру. На тот момент у нас было семь Spring Boot приложений,. . .	Содержание темы с примерами на WebGL 8Observer8 01.07.2025 Все примеры из книги Мацуды и Ли в песочнице JSFiddle Пример выводит точку красного цвета размером 10 пикселей на WebGL 1. 0 и 2. 0 WebGL 1. 0. Передача координаты точки из главной программы в. . .

Опции темы

Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами

Решение