задача на массив - Помощь студентам

Евгения93 · 12.12.2011, 18:17

в паскале.В массиве из 10 вещественных чисел найти максимальное число кратное пяти.

Mandrivnyk · 12.12.2011, 19:10

Ну, допустим, нашел.
Дальше что?

Arigato · 12.12.2011, 19:10

Хм, любопытно, среди вещественных чисел искать кратное число

Евгения93 · 12.12.2011, 20:06

Нужна программа

Mandrivnyk · 12.12.2011, 20:08

Цитата:

Сообщение от Евгения93

Нужна программа

А мне, например, нужны деньги... Новый Год там, Рождество... День рождения у меня опять же скоро...
Может, договоримся? -)

Евгения93 · 12.12.2011, 21:09

Ну деньги не только вам, я думаю они всем нужны!

McFrey · 12.12.2011, 21:20

Код:

var a:array [1..10] of real;
i,k:integer;
begin
for i:=1 to 10 do
begin
write('введите ',i,' элемент массива');
readln(a[i]);
end;
k:=0;
for i:=1 to 10 do if trunc(a[i]) mod 3=0 
then
k:=k+1
write(k);
readln;
end.
все

---------------------
Спасибо за помощь, скажешь! и нажмешь на весы!

Shoggot · 12.12.2011, 21:25

Да, Евгения93, попробуйте следующую APIфункцию:

Код:

KillYouselfByWall

Arigato · 12.12.2011, 21:55

Вообще, говорить о кратности вещественного числа некорректно. Кратность только для целых...

12.12.2011, 18:17	#1
Евгения93 Пользователь Регистрация: 12.12.2011 Сообщений: 14	задача на массив в паскале.В массиве из 10 вещественных чисел найти максимальное число кратное пяти.

12.12.2011, 19:10	#2
Mandrivnyk Software Developer Участник клуба Регистрация: 01.03.2011 Сообщений: 1,098	Ну, допустим, нашел. Дальше что? Болтовня ничего не стоит. Покажите мне код. (c) Linus Torvalds Помог ответ? -- Поставьте отзыв. Выражения особой благодарности в рублевом эквиваленте отправлять сюда --> R269634919062

12.12.2011, 19:10	#3
Arigato Высокая репутация СуперМодератор Регистрация: 27.07.2008 Сообщений: 15,865	Хм, любопытно, среди вещественных чисел искать кратное число E-Mail: arigato.freelance@gmail.com

12.12.2011, 21:20	#7
McFrey Форумчанин Регистрация: 15.10.2011 Сообщений: 306	Код: `var a:array [1..10] of real; i,k:integer; begin for i:=1 to 10 do begin write('введите ',i,' элемент массива'); readln(a[i]); end; k:=0; for i:=1 to 10 do if trunc(a[i]) mod 3=0 then k:=k+1 write(k); readln; end. все` --------------------- Спасибо за помощь, скажешь! и нажмешь на весы! Если твоя программа выполняет мистические действия, значит, ты сделал что-то невероятно тупое...

12.12.2011, 21:25	#8
Shoggot Заблокирован Регистрация: 20.11.2011 Сообщений: 3	Да, Евгения93, попробуйте следующую APIфункцию: Код: `KillYouselfByWall`

12.12.2011, 20:06	#4
Евгения93 Пользователь Регистрация: 12.12.2011 Сообщений: 14	Нужна программа

12.12.2011, 21:09	#6
Евгения93 Пользователь Регистрация: 12.12.2011 Сообщений: 14	Ну деньги не только вам, я думаю они всем нужны!

12.12.2011, 21:55	#9
Arigato Высокая репутация СуперМодератор Регистрация: 27.07.2008 Сообщений: 15,865	Вообще, говорить о кратности вещественного числа некорректно. Кратность только для целых... E-Mail: arigato.freelance@gmail.com

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача на массив	Влад.	Паскаль, Turbo Pascal, PascalABC.NET	10	24.10.2011 20:38
Задача на массив	Evgenyi	Паскаль, Turbo Pascal, PascalABC.NET	2	20.06.2011 18:04
Задача на массив С++	zaki	Помощь студентам	0	12.06.2011 11:11
Задача на массив!	Fatality	Помощь студентам	1	09.04.2009 10:04
Задача на массив	KARUSHEV	Помощь студентам	1	02.04.2009 09:42