Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Gly4ka
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 5
1

Найти количество элементов массива, заканчивающихся на 0

10.12.2013, 16:06. Просмотров 851. Ответов 3
Метки нет (Все метки)

Дан вещественный одномерный массив. Найти кол-во элементов,заканчивающихся на 0.
На сколько я поняла "20"-считается,а "20,05"-не считается.
Не совсем понимаю как следует действовать в этом случае. Буду благодарна за помощь)
Вот что я написала,но и при этом вещественное число округляется:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program massivi;
Const N=5;
Type Tmas = array[1..N] of real;
var i,k:integer; a:Tmas;l,sump,b:real;
begin
 for i:=1 to N do
   read(a[i]);
 for i:=1 to N do
  begin
   l:=round(trunc(a[i]*100)/100+0.499);
   if (l=trunc(a[i])) and (trunc(a[i]) mod 10 = 0)
    then k:=k+1;
  end;
 writeln(k);
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2013, 16:06
Ответы с готовыми решениями:

Определить количество элементов массива X[n], заканчивающихся цифрами 5 или 7
Определить количество элементов массива X, заканчивающихся цифрами 5 или 7. Найти сумму элементов,...

произведение элементов заданного массива заканчивающихся на цифру K
1.написать программу которая вычисляет произведение элементов заданного массива заканчивающихся на...

Найти количество строк, начинающихся и заканчивающихся одинаковыми символами
Дан текстовый файл, содержащий строки. Найти количество строк, начинающихся и заканчивающихся...

Дан массив из 10 элементов. Найти сумму четных элементов.количество элементов массива должно вводиться с клавиатуры
Дан массив из 10 элементов. Найти сумму четных элементов.количество элементов массива должно...

Вычислить произведение элементов заданного массива заканчивающихся на цифру к.
1.написать программу которая вычисляет произведение элементов заданного массива заканчивающихся на...

3
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
10.12.2013, 16:59 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
uses crt;
const n=5;
 
var a:array[1..n] of real;
i,k:integer;
 
BEGIN
clrscr;
for i:=1 to n do
 read(a[i]);
 writeln;
 
  for i:=1 to n do
   write(a[i]:3:2,'  ');
   writeln;
    k:=0;
   for i:=1 to n do
    if a[i] mod 10=0 then
     inc(k);
    writeln;
     if k=0 then
      write('Elementov net ')
       else
        write('Elementov =  ',k);
   readkey;
END.
0
Gly4ka
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 5
10.12.2013, 17:26  [ТС] 3
mod работает только с целыми числами
0
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
10.12.2013, 17:29 4
Цитата Сообщение от Gly4ka Посмотреть сообщение
mod работает только с целыми числами
а да точно..сори
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2013, 17:29

Найти количество элементов массива Х, совпадающих со значениями элементов массива Y
Для получения результата составить функцию, исходными данными которой являются два массива...

Найти количество элементов массива, больших первого элемента массива
Одномерные массивы Ввести или сгенерировать одномерный целочисленный массив A размерности N. Найти...

Найти количество элементов массива, больших среднего арифметического всех ее элементов
Нужно найти количество элементов массива, больших среднего арифметического всех ее элементов. Всё...


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

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

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