Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
achtung
0 / 0 / 0
Регистрация: 05.05.2010
Сообщений: 24
#1

Массив (срочно нужно!!)

19.06.2010, 16:51. Просмотров 346. Ответов 4
Метки нет (Все метки)

задан массив X из 20 элементов. Поместить в массив Y все положительные элементы массива X, сменив знак чисел, в массив Z – все отрицательные элементы массива X (в порядке их следования).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.06.2010, 16:51
Ответы с готовыми решениями:

Паскаль!циклы и одномерный массив. На экзамен нужно срочно.!!не могу сдать экзамен
СРОЧНО!ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ НА ЦИКЛЫ И ОДНОМЕРНЫЙ...

Срочно нужно решение
Доброе время суток Срочно нужно решить задачку.(в Течении часа) Определить на...

Программа стерлась, нужно срочно восстановить
Сидел весь день писал программу на ноутбуки. Ноут иногда вырубается от...

срочно нужно составить блок- схему
K=1/sin a+2/sin2a+3/sin3a+4/sin4a+........ sin2a-это...

НАРОД РЕШИТЕ СРОЧНО НУЖНО ДО ЗАВТРА
1) НАЙТИ : СУММУ КВАДРАТОВ ВСЕХ ЦЕЛЫХ ЧИСЕЛ ОТ 10 ДО 50; 2) ВЫЧИСЛИТЬ...

4
Mad_Dog
Фрилансер
449 / 430 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
19.06.2010, 18:22 #2
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
Var
  X,Y,Z:array[1..20] of integer;
  i,j,k:1..20;
begin
  Randomize;
  FillChar(Y,SizeOf(Y),0);
  FillChar(Z,SizeOf(Z),0);
  j:=0;
  k:=0;
  for i:=1 to 20 do
    begin
      X[i]:=random(100)-50;
      if X[i]>=0 
        then
          begin
            Inc(j);
            Y[j]:=(-1)*X[i]
          end      
        else
          begin
            Inc(k);
            Z[k]:=X[i]
          end  
    end
end;
Вывод массивов на экран уж сделай сам...
1
Mиxaил
534 / 439 / 162
Регистрация: 10.12.2009
Сообщений: 1,857
19.06.2010, 18:30 #3
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
28
29
30
31
32
33
34
35
36
37
38
39
var x,y,z:array[1..100] of integer;
    i,n,m,k:byte;
begin
Randomize;
write('n -> ');
readln(n);
for i:=1 to n do
  x[i]:=Random(100)-50;
writeln('Исходный массив:');
writeln;
for i:=1 to n do
  write(x[i],'  ');
writeln;
m:=0;
k:=0;
for i:=1 to n do
  begin
    if x[i]>0 then
      begin
        inc(m);
        y[m]:=x[i]*(-1);
      end
    else if x[i]<0 then
      begin
        inc(k);
        z[k]:=x[i];
      end;
  end;
writeln('Массив положительных элементов:');
writeln;
for i:=1 to m do
  write(y[i],'  ');
writeln;
writeln('Массив отрицательных элементов:');
writeln;
for i:=1 to k do
  write(z[i],'  ');
readln;
end.
1
Mad_Dog
Фрилансер
449 / 430 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
19.06.2010, 18:41 #4
Mиxaил, Это в российских школьных программах по математике не принято причислять ноль к натуральным числам. Однако, в математике 0 является целым числом и делится на все натуральные числа.
0
achtung
0 / 0 / 0
Регистрация: 05.05.2010
Сообщений: 24
19.06.2010, 19:06  [ТС] #5
спасибо всем огромное!! очень помогли!
0
19.06.2010, 19:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.06.2010, 19:06

Ребята срочно нужно решить задания на Паскале
1.Напишите программу, которая по значениям двух катетов вычисляет гипотенузу и...

срочно нужно массивы - последняя работа до зачета осталась!!!
Вывести вначале элементы массива с нечетными номерами в порядке возрастания...

Люди поиогите срочно нужно написать программу со стрингами без массивов
Все вхождения первого слова текста заменить последним его словом


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru