Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от –100 до 100 включительно. Напишите алгоритм, позволяющий найти и вывести количество пар двузначных и противоположных по знаку элементо...
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые
значения от –100 до 100 включительно. Напишите алгоритм, позволяющий найти и
вывести количество пар двузначных и противоположных по знаку элементов массива.
Под парой подразумевается два любых элемента массива, один элемент может быть
участником разных пар. Исходные данные объявлены так, как показано ниже.
Запрещается использовать переменные, не описанные ниже, но разрешается не
использовать некоторые из описанных переменных.
Гость
Ответ(ы) на вопрос:
ГостьПодозреваю, что не самый рациональный метод решения, но чем смог тем помог :)
const
N = 30;
var
a: array [1..N] of longint;
i, j, k: longint;
begin
for i := 1 to N do
readln(a[i]);
j:=0;
k:=0;
for i:=1 to N do begin
if (abs(a[i])>=10) and (abs(a[i])<100) and (a[i]>0) then inc(k);
if (abs(a[i])>=10) and (abs(a[i])<100) and (a[i]<0) then inc(j);
end;
if k>j then writeln(j)
else if k
Не нашли ответ?
Похожие вопросы