Капитон 25 ноября 2019 в 12:32
Дан целочисленный массив из 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])gt;=10) and (abs(a[i])lt;100) and (a[i]gt;0) then inc(k);
if (abs(a[i])gt;=10) and (abs(a[i])lt;100) and (a[i]lt;0) then inc(j);
end;
if kgt;j then writeln(j)
else if klt;j then writeln(k)
else if k=j then writeln(k);
end.
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])gt;=10) and (abs(a[i])lt;100) and (a[i]gt;0) then inc(k);
if (abs(a[i])gt;=10) and (abs(a[i])lt;100) and (a[i]lt;0) then inc(j);
end;
if kgt;j then writeln(j)
else if klt;j then writeln(k)
else if k=j then writeln(k);
end.
Компьютеры и вычисления
395
0
Для комментирования необходимо зарегистрироваться на сайте