Вывести элементы массива до первого отрицательного

@LamerDegedrol · Регистрация: 23.01.2015

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

Вывести элементы массива до первого отрицательного.

@ZX Spectrum-128 · 09.04.2015, 09:36

Найти номер первого отрицательного элемента массива или 0, если такого нет
Добавьте:

Pascal
1
2
for i:=1 to j do
 write(x[i]:5);

@LamerDegedrol · 10.04.2015, 18:27 **[ТС]**

НЕ ТАК!
там с Break типо надо...

@ZX Spectrum-128 · 10.04.2015, 19:08

Сообщение от LamerDegedrol

НЕ ТАК!

С чего ли вдруг? Все правильно работает.

Сообщение от LamerDegedrol

там с Break типо надо...

Кто сказал?

@LamerDegedrol · 10.04.2015, 19:35 **[ТС]**

Я чёт в саму программу не запихну...
Боже, как не хотят работать мои мозги...
А чё значит write(x[i]:5)?
прост мы с break проходим...
Типо if xxx then xxx else break

@ZX Spectrum-128 · 10.04.2015, 19:39

Сообщение от LamerDegedrol

прост мы с break проходим...
Типо if xxx then xxx else break

В программе сделано без break и гораздо элегантнее.

Сообщение от LamerDegedrol

А чё значит write(x[i]:5)?

На вывод целочисленной переменной выделяется 5 позиций.

@LamerDegedrol · 10.04.2015, 19:47 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
const n=10;
var x:array[1..100] of integer;
    i,j:integer;
begin
write ('ввод кол-во значений');
read(j);
for i:=1 to j do
begin
 write(x[i]:5);
 write('i=',i);
end;
end.

АААА. всё мозг мёртв.... да как впихнуть?

@ZX Spectrum-128 · 10.04.2015, 20:08

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
uses
  crt;
Const
  n = 15;
 
type
  vector = array[1..n] of integer;
 
var
  X: vector;
  i, m, j: integer;
 
begin
  clrscr;
  j := 0;
  randomize;
  m := random(n - 10) + 11;
  writeln('Массив:');
  for i := 1 to m do begin
    x[i] := random(20) - 4;
    write(' ', x[i]:4);
    if (x[i] < 0) and (j = 0) then j := i
  end;
 
  writeln;
  writeln('Результат: ', j);
  writeln('Результирующий массив: ');
  for i:=1 to j-1 do
    write(x[i]:4);
  readln; 
end.

@LamerDegedrol · 10.04.2015, 21:45 **[ТС]**

чёта не пойму строчки

Добавлено через 55 секунд
randomize;
m := random(n - 10) + 11;
и
x[i] := random(20) - 4;

не проще просто сделать ввод чисел, тут рандом не требуется,
да и зачем такой странный рандом?

Добавлено через 6 минут
Лан, не радомный щас сам допилю и скину сюда, вдруг пригодиться...

@ZX Spectrum-128 · 10.04.2015, 21:52

Сообщение от LamerDegedrol

не проще просто сделать ввод чисел

Лень вбивать числа.

@LamerDegedrol · 10.04.2015, 22:01 **[ТС]**

лан, я тоже заглох...
program z;
Const
n = 15;
type
x=array[1..n] of integer;
var
i, m, j: integer;

begin
write ('ввод m');
readln (m);
j := 0;
writeln('Массив:');
for i := 1 to m do begin
if (x[i] < 0) and (j = 0) then j := i
end;

writeln;
writeln('Результат: ', j);
writeln('Результирующий массив: ');
for i:=1 to j-1 do
write(x[i]:5);
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@LamerDegedrol 1 / 1 / 1 Регистрация: 23.01.2015 Сообщений: 94

	Вывести элементы массива до первого отрицательного 08.04.2015, 20:56. Показов 3071. Ответов 10 Метки нет (Все метки) Вывести элементы массива до первого отрицательного. 0

@LamerDegedrol 1 / 1 / 1 Регистрация: 23.01.2015 Сообщений: 94
	10.04.2015, 18:27 [ТС]
	НЕ ТАК! там с Break типо надо... 0

@LamerDegedrol 1 / 1 / 1 Регистрация: 23.01.2015 Сообщений: 94
	10.04.2015, 19:35 [ТС]
	Я чёт в саму программу не запихну... Боже, как не хотят работать мои мозги... А чё значит write(x[i]:5)? прост мы с break проходим... Типо if xxx then xxx else break 0

@LamerDegedrol 1 / 1 / 1 Регистрация: 23.01.2015 Сообщений: 94
	10.04.2015, 21:45 [ТС]
	чёта не пойму строчки Добавлено через 55 секунд randomize; m := random(n - 10) + 11; и x[i] := random(20) - 4; не проще просто сделать ввод чисел, тут рандом не требуется, да и зачем такой странный рандом? Добавлено через 6 минут Лан, не радомный щас сам допилю и скину сюда, вдруг пригодиться... 0

@LamerDegedrol 1 / 1 / 1 Регистрация: 23.01.2015 Сообщений: 94
	10.04.2015, 22:01 [ТС]
	лан, я тоже заглох... program z; Const n = 15; type x=array[1..n] of integer; var i, m, j: integer; begin write ('ввод m'); readln (m); j := 0; writeln('Массив:'); for i := 1 to m do begin if (x[i] < 0) and (j = 0) then j := i end; writeln; writeln('Результат: ', j); writeln('Результирующий массив: '); for i:=1 to j-1 do write(x[i]:5); readln; end. 0

Вывести элементы массива до первого отрицательного

Решение