Массив: Образуйте массив B, состоящий из положительных элементов заданного массива A(N), больших пяти.

@wnmkr · Регистрация: 13.11.2012

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

Образуйте массив B, состоящий из положительных элементов заданного массива A(N), больших пяти. Выведите на печать образованный массив и число его элементов. (модуль)

P.S. у меня есть заготовка

Delphi

k:=0;
for i:=1 to n do
if a[i]>5 then
 begin
  k:=k+1;
  b[k]:=a[i];
 end;
writeln('Massiv B:');
for i:=1 to k do
write(b[i],' ')

Комментарий модератора

Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует поместить этот код в теги: [DELPHI] - [/DELPHI]. Это можно сделать вручную или можно выделить код и на панели редактирования сообщения нажать кнопку: "DELPHI".

@barbudo59 · 21.03.2013, 14:28

Мысль правильная, только элементы массивов нумеруются с 0.

@Puporev · 21.03.2013, 14:36

Текст модуля

Pascal

unit mod_1;
interface
const nmax=100;
type mas=array[1..nmax] of integer;
procedure vvod(var a:mas;var n:integer);
procedure newmas(a:mas;n:integer;var b:mas;k:integer);
implementation
procedure vvod;
var i:integer;
begin
repeat
write('Размер массива A до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив A:');
for i:=1 to n do
 begin
  a[i]:=-25+random(50);
  write(a[i]:4);
 end;
writeln;
end;
procedure newmas;
var i:integer;
begin
k:=0;
for i:=1 to n do
if a[i]>0 then
 begin
  k:=k+1;
  b[k]:=a[i];
 end;
writeln('Количество положительных элементов=',k);
if k>0 then
 begin
  writeln('Массив B:');
  for i:=1 to k do
  write(b[i]:4);
 end
end;
end.

Текст программы

Pascal

uses crt,mod_1;
var a,b:mas;
    n,k:integer;
begin
clrscr;
randomize;
vvod(a,n);
newmas(a,n,b,k);
readln
end.

@barbudo59 Я не экстрасенс 382 / 339 / 34 Регистрация: 22.01.2013 Сообщений: 1,126
	21.03.2013, 14:28	2
	Мысль правильная, только элементы массивов нумеруются с 0. 0

Опции темы