Вывод содержимого массива на экран

@sergios89 · Регистрация: 10.02.2013

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

Есть незаконченный код одной задачи:

var
a, b, i, n, c: integer;
mas: array[1..100] of integer;

begin
writeln('введите n');
readln(n);
repeat
writeln('введите a и b');
readln(a, b)
until (a < b);

randomize;
for i := 1 to n do

begin
mas[i] := a + random(abs(b - a + 1));
end;
writeln();
end.

Необходимо вывести содержимое массива на экран, без сортировки, группировки и т.п.

1) Для этого необходимо сделать цикл "for i := 1 to n do", в котором через write() вывод значения элементов массива, после цикла вставить writeln().

2) Следующая задача - вывести только отрицательные. Для этого в вышеупомянутом цикле используем условие "if (*элемент массива* < 0) then", выводим элементы так же через write().

3) Далее - выводим неотрицательные элементы, для этого в условие вместо "< 0" вставляем ">= 0", и так же через write() выводим.

Как правильно дополнить код?

@Samhain · 23.10.2013, 09:33

sergios89,

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
var a,b,i,n:integer;
    mas:array[1..100] of integer;
begin
  repeat
    write('n = ');readln(n);
  until (n<=100);
  repeat
    writeln('введите a и b, a<b:');
    readln(a, b)
  until (a < b);
  randomize;
  writeln('Исходный массив:');
  for i := 1 to n do
    begin
      mas[i]:=a+random(b-a+1);
      write(mas[i]:3);
    end;
  writeln;
  writeln('Отрицательные элементы массива:');
  for i := 1 to n do
    if mas[i]<0 then write(mas[i]:3);
  writeln;
  writeln('Неотрицательные элементы массива:');
  for i := 1 to n do
    if mas[i]>=0 then write(mas[i]:3);
  readln
end.

@sergios89 · 23.10.2013, 13:38 **[ТС]**

А блок-схемой не поможете?

@Samhain · 23.10.2013, 14:02

sergios89,

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка 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 , при. . .

@sergios89 0 / 0 / 1 Регистрация: 10.02.2013 Сообщений: 63

	Вывод содержимого массива на экран 23.10.2013, 08:55. Показов 1088. Ответов 3 Метки нет (Все метки) Есть незаконченный код одной задачи: var a, b, i, n, c: integer; mas: array[1..100] of integer; begin writeln('введите n'); readln(n); repeat writeln('введите a и b'); readln(a, b) until (a < b); randomize; for i := 1 to n do begin mas[i] := a + random(abs(b - a + 1)); end; writeln(); end. Необходимо вывести содержимое массива на экран, без сортировки, группировки и т.п. 1) Для этого необходимо сделать цикл "for i := 1 to n do", в котором через write() вывод значения элементов массива, после цикла вставить writeln(). 2) Следующая задача - вывести только отрицательные. Для этого в вышеупомянутом цикле используем условие "if (элемент массива < 0) then", выводим элементы так же через write(). 3) Далее - выводим неотрицательные элементы, для этого в условие вместо "< 0" вставляем ">= 0", и так же через write() выводим. Как правильно дополнить код? 0

@sergios89 0 / 0 / 1 Регистрация: 10.02.2013 Сообщений: 63
	23.10.2013, 13:38 [ТС]
	А блок-схемой не поможете? 0

@Samhain 696 / 570 / 414 Регистрация: 31.03.2013 Сообщений: 1,029
	23.10.2013, 14:02
	sergios89, Миниатюры 1