Две задачи на массивы

@dimablinov · Регистрация: 27.11.2009

Author24 — интернет-сервис помощи студентам

люди!! срочно помогите в паскале полному лузеру и нубу(тобишь мне)!! две задачи :
1. Дан массив действительных чисел, размерность которого N. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.
2. Даны натуральные числа a1, a2,..., аn. Указать те, у которых остаток от деления на M равен L (0=< L=< M— 1).

Добавлено через 5 минут
от всей души буду благодарен!!!

@кот Бегемот · 01.12.2009, 20:05

Сообщение от dimablinov

люди!! срочно помогите в паскале полному лузеру и нубу(тобишь мне)!! две задачи :
1. Дан массив действительных чисел, размерность которого N. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.
2. Даны натуральные числа a1, a2,..., аn. Указать те, у которых остаток от деления на M равен L (0=< L=< M— 1).

Добавлено через 5 минут
от всей души буду благодарен!!!

Pascal

var
a:array[1..100]of integer;
i,n,polojit,otricat,nulev:integer;
begin
readln(n);
for i:=1 to  n do
read(a[i]);
for i:=1 to n do
if a[i]>0 then inc(polojit) else if a[i]<0 then inc(otricat) else inc(nulev);
writeln('polojitelnyh=',polojit);
writeln('otricatelnyh=',otricat);
writeln('nulevyh=',nulev);
end.

Добавлено через 6 минут

2. Даны натуральные числа a1, a2,..., аn. Указать те, у которых остаток от деления на M равен L (0=< L=< M— 1).

Pascal

var
a:array[1..100]of integer;
i,n,m,l:integer;
begin
readln(n);
readln(m);
readln(l);
for i:=1 to do
read(a[i]);
for i:=1 to n do
if a[i] mod m=l then write(a[i]:5);
end.

@dimablinov 1 / 1 / 0 Регистрация: 27.11.2009 Сообщений: 35
		1
	Две задачи на массивы 01.12.2009, 19:46. Показов 1142. Ответов 1 Метки нет (Все метки) люди!! срочно помогите в паскале полному лузеру и нубу(тобишь мне)!! две задачи : 1. Дан массив действительных чисел, размерность которого N. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов. 2. Даны натуральные числа a1, a2,..., аn. Указать те, у которых остаток от деления на M равен L (0=< L=< M— 1). Добавлено через 5 минут от всей души буду благодарен!!! 0

	01.12.2009, 20:05

Две задачи на массивы

Решение