Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.12.2009, 12:08
HelperMe HelperMe вне форума
Прохожий
 
Регистрация: 17.12.2009
Сообщения: 6
Репутация: 10
По умолчанию Дан массив целых чисел. Определить

Помогите плз
Дан массив целых чисел. Определить:
а) количество элементов, отличных от последнего элемента;
б) количество элементов, кратных А.
Ответить с цитированием
  #2  
Старый 20.12.2009, 14:05
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Вроде так:
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Const
 ArrSize = 5;
 Arr: Array[1..ArrSize] of Integer = (1,2,3,4,5);
 A = 2;
Var
 i,Count1,Count2: Integer;
begin
Count1 := 0;
Count2 := 0;
for i := 1 to ArrSize-1
do begin
    if Arr[i] <> Arr[ArrSize] then Inc(Count1);
    if Arr[i] mod A = 0 then Inc(Count2);
    end;
Write('Отличных: ',Count1,'Кратных: ',Count2);
end.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #3  
Старый 20.12.2009, 14:38
HelperMe HelperMe вне форума
Прохожий
 
Регистрация: 17.12.2009
Сообщения: 6
Репутация: 10
По умолчанию

спасибо!!!
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:18.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025