Задача об особых элементах массива

SayanaFelias · 10.05.2011, 21:50

Помогите пожалуйста с задачей. Попыталась что то сделать, но по-моему получилась фигня.

Дан одномерный целочисленный массив А, состоящий из N элементов, N — заданное натуральное число. Элемент Аi (i = 1,2,3, … ,N) назовем особыми, если он больше суммы остальных элементов. Составить одномерный массив В из особых элементов массива А, оканчивающихся на 5. Если таких элементов нет, то выдать соответствующее текстовое сообщение.

У меня вот что вышло:
program Project1;
uses
SysUtils;
type
mas=array [1..1000] of integer;
var
A:mas;
B:array [1..10] of integer;
n,i,s,j: integer;
begin
n<2;
writeln('vvedite chislo n');
readln(n);
writeln;
randomize;
for i:= 1 to 10 do
begin
A[i]:=random(25);
writeln(A[i],' ');
end;
writeln;
for i:= 1 to n do
begin
S:=0;
s:=s+A[i];
b[j]:=s;
if A[i]>(S-A[i]) then
begin
if s=0 then
writeln (' Takih elementov net')
else
writeln(B[j]);
end;
end;
readln;
readln;
end.

Vladimir_S · 10.05.2011, 22:48

Цитата:

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

Помогите пожалуйста с задачей. Попыталась что то сделать, но по-моему получилась фигня.

Ну... не без этого. Вот, например:

Цитата:

uses
SysUtils;

Зачем?

Цитата:

n<2;

Что за ахинея? Мы с Паскалем таких операторов не знаем.
Теперь еще два слова по сути задачи. Вот Вы задаете

Цитата:

A[i]:=random(25);

, но дело в том, что если все члены массива положительны, как у Вас, то особых может быть МАКСИМУМ один. Не более. Поэтому массив целесообразно сделать переменным по знаку, и причем, в силу условия оканчивания особых на 5, диапазон взять пошире. И n задавать не менее 200-300. Иначе будет сплошное Takih elementov net.
Вот отлаженная программа:

Код:

program Project1;
var
 A,B:array [1..1000] of integer;
 n,i,s,j: integer;
begin
 write('vvedite chislo n ');
 readln(n);
 writeln;
 randomize;
 for i:= 1 to n do
  begin
   A[i]:=50-random(101);
   write(A[i],' ');
  end;
 writeln;
 S:=0;
 For i:= 1 to n do
  S:=S+A[i];
 j:=0;
 For i:=1 to n do
  begin
   if (A[i]>(S-A[i])) and ((A[i] mod 10)=5) then
    begin
     j:=j+1;
     B[j]:=A[i];
    end;
  end;
 writeln;
 If j=0 then
  writeln (' Takih elementov net')
 else
 For i:=1 to j do
  write(B[i],' ');
 readln;
end.

10.05.2011, 21:50	#1 (permalink)
SayanaFelias Новичок Регистрация: 10.05.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите пожалуйста с задачей. Попыталась что то сделать, но по-моему получилась фигня. Дан одномерный целочисленный массив А, состоящий из N элементов, N — заданное натуральное число. Элемент Аi (i = 1,2,3, … ,N) назовем особыми, если он больше суммы остальных элементов. Составить одномерный массив В из особых элементов массива А, оканчивающихся на 5. Если таких элементов нет, то выдать соответствующее текстовое сообщение. У меня вот что вышло: program Project1; uses SysUtils; type mas=array [1..1000] of integer; var A:mas; B:array [1..10] of integer; n,i,s,j: integer; begin n<2; writeln('vvedite chislo n'); readln(n); writeln; randomize; for i:= 1 to 10 do begin A[i]:=random(25); writeln(A[i],' '); end; writeln; for i:= 1 to n do begin S:=0; s:=s+A[i]; b[j]:=s; if A[i]>(S-A[i]) then begin if s=0 then writeln (' Takih elementov net') else writeln(B[j]); end; end; readln; readln; end.

10.05.2011, 21:50
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Дам вам рекомендацию - прочитайте данные топики Часы на отечественных элементах Что можно сделать на этих элементах? Электрогенератор на элементах Пельтье Паскаль. Задача об элементах вектора

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070