Подсчитать количество элементов массива, больших чем мо-дуль разности первого и последнего элементов массива

@UnVirus · Регистрация: 01.03.2013

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

Подсчитать количество элементов массива, больших чем мо-дуль разности первого и последнего элементов массива.

@StrelokCj · 22.03.2013, 22:43

Pascal

uses crt;
const r=30;
var a:array[1..r] of integer;
i,m,s:integer;
begin
clrscr;
randomize;
for i:=1 to r do begin
    a[i]:=random(50);
    write(a[i]:4);
end;
writeln;
m:=abs(a[1]-a[r]);
for i:=1 to r do
    if (a[i]>m) then s:=s+1;
write(s);
readkey;
end.

@UnVirus 0 / 0 / 0 Регистрация: 01.03.2013 Сообщений: 7
		1
	Подсчитать количество элементов массива, больших чем мо-дуль разности первого и последнего элементов массива 22.03.2013, 20:51. Показов 1457. Ответов 1 Метки нет (Все метки) Подсчитать количество элементов массива, больших чем мо-дуль разности первого и последнего элементов массива. 0

	22.03.2013, 22:43

Опции темы

Подсчитать количество элементов массива, больших чем мо-дуль разности первого и последнего элементов массива

Решение