Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.06.2012, 12:08   #1
Richik123
Пользователь
 
Регистрация: 09.04.2012
Сообщений: 92
По умолчанию Заданы массивы А(15).В(17),С(10),состоящие из положительных и отрицательных чисел. Определить в каком массиве,больше четных чисел.

Заданы массивы А(15).В(17),С(10),состоящие из положительных и отрицательных чисел. Определить в каком массиве,больше четных чисел.Подсчёт количества четных чисел оформить в виде подпрограммы.заполнение массивов и вывод на печать оформить в виде подпрограмм.
Richik123 вне форума Ответить с цитированием
Старый 19.06.2012, 12:24   #2
Leshii
Форумчанин
 
Регистрация: 26.07.2011
Сообщений: 376
По умолчанию

Код:
Uses crt;
var 
   A: array [1..15] of integer;
   B: array [1..17] of integer;
   С: array [1..10] of integer;
   i: integer;

Procedure Fill_mas;
var i: integer;
begin
randomize;
writeln(Massive A[i]: ');
for i:=1 to 15 do begin
     a[i]:=random(10)-4;
     write(a[i]:3);
end;
writeln(Massive B[i]: ');
for i:=1 to 17 do begin
     b[i]:=random(10)-4;
     write(a[i]:3);
end;
writeln(Massive C[i]: ');
for i:=1 to 10 do begin
     c[i]:=random(10)-4;
     write(c[i]:3);
end;
end;

Procedure chet;
var count1, count2, count3: integer;
begin
for i:=1 to 15 do begin
     if a[i] mod 2 = 0 then inc(count1);
end;
for i:=1 to 17 do begin
     if b[i] mod 2 = 0 then inc(count2);
end;
for i:=1 to 10 do begin
     if c[i] mod 2 = 0 then inc(count3);
end;
if (count1>count2) and (count1>count3) then writeln(' max is count 1')
 else if (count2>count1) and (count2>count3) then writeln(' max is count2 ')
  else writeln(' max is count 3');
end;

{ процедура вывода на печать оформи сам }


begin
clrscr;
Procedure Fill_mas;
Procedure chet;
{ процедура вывода на печать }
readkey;
end.
Люблю на ты.Я человек простой

Последний раз редактировалось Leshii; 19.06.2012 в 12:52.
Leshii вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вводится 10 чисел. Найти среднее арифметическое положительных чисел и произведение отрицательных. Руся93 Помощь студентам 14 02.10.2011 13:12
Задача от VBA. Одномерные массивы-подсчитать количество положительных и отрицательных чисел ДМИТРИЙ1234 Microsoft Office Excel 12 02.06.2011 23:22
Создать файл целых чисел с данным именем и записать в него N первых положительных четных чисел prelest' Паскаль, Turbo Pascal, PascalABC.NET 4 01.06.2011 10:27
Среднее арифмитическое положительных и отрицательных чисел в массиве dimit4 Общие вопросы C/C++ 3 24.06.2010 18:49