Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11673
Последний выпуск: 19.06.2015

Как распечатать массивы в две строки,один под другим? (№2 в картинке)

92K
30 января 2014 года
Bale1114
1 / / 30.01.2014


program Massiv;
var
a: array [1..10] of integer;
b: array [1..10] of integer;
N:integer;
j:integer; // переменная для подсчета размера нового массива
i:integer; // счетчик в цикле
begin
// ввод размера масива
writeln('Введите N (N<=10)');
readln(N);
writeln('Значения массива А');
// ввод значений масива
for i:=1 to n do begin write('a[',i,']=');readln(A); end;
// решение
j:=0; // начальное значение размера нового массива
for i:=1 to n do begin // цикл для обхода массива
if (a mod 2)=0 then // условие для формирования нового массива
begin
inc(j); // увеличение размера формирующегося массива
b[j]:=a; // присвоение значения элементу массива b
end;
end;
// вывод результата
Writeln('Ответ');
Writeln('Размер полученного массива ',j);
Write('B[]: '); for i:=1 to j do Write(B,' ');
end.

Введите N (N<=10)
10
Значения массива А
a[1]=2
a[2]=4
a[3]=1
a[4]=3
a[5]=9
a[6]=7
a[7]=8
a[8]=6
a[9]=5
a[10]=10
Ответ
Размер полученного массива 5
B[]: 2 4 8 6 10 Введите N (N<=10)
209
31 января 2014 года
wanja
1.2K / / 03.02.2003
Зачем ты делаешь readln, если массив должен быть заполнен случайными числами?.
285
02 февраля 2014 года
sadovoya
757 / / 19.11.2005
Код:
program problem_2;
var
  A: array [1..10] of integer;
  B: array [1..10] of integer;
  i, j: integer;
begin
  j := 0;
  randomize;
  for i := 1 to 10 do
  begin
    A[i] := -10 + random(20);
    if (A[i] mod 2) = 0 then
    begin
      Inc(j);
      B[j] := A[i];
    end;
  end;
  Write('A[]: ');
  for i := 1 to 10 do Write(A[i], ' ');
  Writeln();
  Write('B[]: ');
  for i := 1 to j do Write(B[i], ' ');
end.
209
02 февраля 2014 года
wanja
1.2K / / 03.02.2003
random(21). Иначе будут [-10;9]
285
02 февраля 2014 года
sadovoya
757 / / 19.11.2005
Да, я лажанулся. Но, ему надо (-10; +10), т.е. [-9; +9]. Значит меняем на это:

 
Код:
-9 + random(19)

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог