Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Люся
0 / 0 / 1
Регистрация: 11.02.2013
Сообщений: 35
#1

Заданы массивы А(5), В(11). Определить, в каком массиве больше положительных чисел - Pascal ABC

06.03.2013, 21:21. Просмотров 349. Ответов 3
Метки нет (Все метки)

Заданы массивы А(5), В(11). Определить, в каком массиве больше положительных чисел. Подсчет количества положительных чисел в массиве оформить в виде подпрограммы,результат нужно вывести в текстовый документ.

Добавлено через 1 час 36 минут
Помогите пожалуйста.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.03.2013, 21:21
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Заданы массивы А(5), В(11). Определить, в каком массиве больше положительных чисел (Pascal ABC):

Заданы три массива. Определить, в каком массиве больше отрицательных элементов
Заданы массивы А(7),В(4),С(9),состоящие из положительных и отрицательных...

Массивы. Определить, в каком массиве больше сумма элементов
пользователь последовательно вводит два массива целых чисел по три элемента в...

Определить в каком массиве больше четных чисел
Заданы массивы А(15).В(17),С(10),состоящие из положительных и отрицательных...

Определить в каком массиве, больше чисел меньше 30.
заданы массивы А(5), В(7), с(6), состоящие из положительных чисел.Определить в...

Определить в каком массиве, больше четных чисел.
Заданы массивы А(15),В(7),С(10), состоящие из положительных и отрицательных...

Определить, в каком массиве больше чисел, попадающих в интервал от -1 до 1
Заданы массивыА(5),В(4),С(7).определить, в каком массиве больше...

3
UserABC
Pascal +
132 / 131 / 127
Регистрация: 16.03.2011
Сообщений: 461
07.03.2013, 18:46 #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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
program primer;
 uses crt;
  const n=5; m=11;
  type omas1= array[1..n] of integer;
  type omas2=array [1..m] of integer;
   var a:omas1;
       b:omas2;
       k1,k2:integer;
       f:text;
   procedure init1(var z:omas1);
   var i:byte;
    begin
     for i:=1 to n do
     read(z[i]);
    end;
   procedure print1(var z:omas1);
   var i:byte;
    begin
     for i:=1 to n do
     write(z[i]:2);
     writeln;
    end;
    procedure init2(var z:omas2);
   var i:byte;
    begin
     for i:=1 to m do
     read(z[i]);
    end;
   procedure print2(var z:omas2);
   var i:byte;
    begin
     for i:=1 to m do
     write(z[i]:2);
     writeln;
    end;
   function kol1(var z:omas1):integer;
   var i,k:integer;
    begin
     for i:=1 to n do
      if z[i]>0 then inc(k);
    kol1:=k;
   end;
    function kol2(var z:omas2):integer;
   var i,k:integer;
    begin
     for i:=1 to n do
      if z[i]>0 then inc(k);
    kol2:=k;
   end;
  begin
   writeln('Ââåäèòå Г¬Г*Г±Г±ГЁГў 1: ');
    init1(a);
   writeln('Ââåäèòå Г¬Г*Г±Г±ГЁГў 2: ');
    init2(b);
   writeln('Ïîëó÷åГ*Г*ûé Г¬Г*Г±Г±ГЁГў 1: ');
    print1(a);
   writeln('Ïîëó÷åГ*Г*ûé Г¬Г*Г±Г±ГЁГў 2: ');
    print2(b);
   k1:=kol1(a);
   k2:=kol2(b);
   if k1 > k2 then
    begin
     Assign(F, 'dat.dat');
     Rewrite(F);
     WriteLn(F, k1);
     Close(F);
    end
     else
        begin
         Assign(F, 'dat.dat');
         Rewrite(F);
         WriteLn(F, k2);
         Close(F);
        end;
   end.
1
Люся
0 / 0 / 1
Регистрация: 11.02.2013
Сообщений: 35
10.03.2013, 15:26  [ТС] #3
Программа не работает,вернее она не подсчитывает сколько положительных чисел в массиве.
0
Harlem
65 / 65 / 90
Регистрация: 27.02.2013
Сообщений: 156
10.03.2013, 15:40 #4
Попробуйте так:

Pascal
1
2
3
4
5
6
for i:=1 to 5 do 
    if a[i]>0 then inc(k);
for i:=1 to 11 do
    if b[i]>0 then inc(s);
if k>s then write('В первом массиве больше положительных элементов.')
else if k<s then write('Во втором массиве больше положительных элементов.');
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.03.2013, 15:40
Привет! Вот еще темы с решениями:

Определить, в каком массиве больше чисел, попадающих в интервал от -1 до 1 оформить в виде подпрограммы.
Заданны массивы А(5), В(4), С(7). Определить, в каком массиве больше чисел,...

Определить, в каком массиве больше чисел, попадающих в интервал от –1 до +1.
Всем здравствуйте, очень нужна Ваша помощь, помогите пожалуйста решить 4...

Найти, в каком из массивов больше положительных чисел, а в каком отрицательных
Дано натуральное число n и два целочисельных массива a1,a2,...,an и ...

Массивы. Определить, на сколько положительных чисел больше, чем отрицательных
данна последовательность из 12 чисел. Написать программу, определящую, на...


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

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

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