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

@dementor66 · Регистрация: 05.03.2014

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

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

@VlaNik · 05.03.2014, 07:41

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

@dementor66 · 05.03.2014, 15:10 **[ТС]**

Она не полная.

@APALoff · 05.03.2014, 15:52

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

Она не полная.

Ну так допиши!

@Sharkboy · 06.03.2014, 01:53

Pascal

uses crt;
var
B,array2:array[1..20] of integer;
i,k,n:integer;
begin
readln(n);
randomize;
for i:=1 to n do
B[i]:=random(10);
 
for i:=1 to n do
 begin
 if B[i]>5 then
  begin
  array2[i]:=B[i];
  inc(k);
  end;
 end;
WriteLn('новый массив');
for i:=1 to n do
 begin
 Write(array2[i],' ');
 end;
WriteLn('количество элементов нового массива = ',k);
readkey;
end.

@APALoff · 06.03.2014, 02:00

Sharkboy, садись - двойка!

Работа над ошибками:
10 строка: k:=1;
15 строка: array2[k]:=B[i];
20 строка: for i:=1 to k-1 do
24 строка: WriteLn('количество элементов нового массива = ',k-1);

@Sharkboy · 06.03.2014, 02:02

На скорую руку и так хорощо

@APALoff · 06.03.2014, 02:03

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

На скорую руку и так хорощо

нет не хорошо, т.к. она работала не правильно.

@dementor66 0 / 0 / 0 Регистрация: 05.03.2014 Сообщений: 9
		1
	Образуйте массив B, состоящий из положительных элементов заданного массива A(N), больших пяти 05.03.2014, 01:28. Показов 650. Ответов 7 Метки нет (Все метки) Образуйте массив B, состоящий из положительных элементов заданного массива A(N), больших пяти. Выведите на печать образованный массив и число его элементов. Напишите пожалуйста полную программу. 0

@VlaNik 79 / 53 / 65 Регистрация: 18.06.2013 Сообщений: 99
	05.03.2014, 07:41	2
	Уже было Образуйте массив B, состоящий из положительных элементов заданного массива A, больших пяти 1

@dementor66 0 / 0 / 0 Регистрация: 05.03.2014 Сообщений: 9
	05.03.2014, 15:10 [ТС]	3
	Она не полная. 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	05.03.2014, 15:52	4
	Сообщение от dementor66 Она не полная. Ну так допиши! 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	06.03.2014, 02:00	6
	Sharkboy, садись - двойка! Работа над ошибками: 10 строка: k:=1; 15 строка: array2[k]:=B[i]; 20 строка: for i:=1 to k-1 do 24 строка: WriteLn('количество элементов нового массива = ',k-1); 0

@Sharkboy 8 / 11 / 16 Регистрация: 30.09.2013 Сообщений: 90
	06.03.2014, 02:02	7
	На скорую руку и так хорощо 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	06.03.2014, 02:03	8
	Сообщение от Sharkboy На скорую руку и так хорощо нет не хорошо, т.к. она работала не правильно. 0

Опции темы