Вопрос по информатике:
Pascal
Проверить присутствие в массиве вещественных чисел отрицательных элементов, квадрат которых больше 100.
Ограничения:
-число элементов в матрице не более 10-ти
Порядок ввода исходных данных:
-число элементов в массиве
-элементы массива
Порядок вывода результатов:
-сообщение Элементы найдены или Элементы не найдены.
- 14.08.2018 16:15
- Информатика
- remove_red_eye 5213
- thumb_up 78
Ответы и объяснения 2
Program Pr1;
uses crt;
var mas:array[1..10] of real;
i,n,b:integer;
Begin
clrscr;
readln(n);
for i:=1 to n do readln(mas[i]);
for i:=1 to n do if (mas[i]<0) and (frac(mas[i])0) and (sqr(mas[i])>100) then b:=b+1;
if b>0 then writeln('Элементы найдены')
else writeln('Элементы не найдены');
end.
- 15.08.2018 16:16
- thumb_up 1
Воооот... Это Паскаль, если что-то не получится-пиши в сообщения.
var
a: array [1..10] of real;
i,k,c:integer;
begin
readln(k);
for i:=0 to k do
begin
read(a[i]);
if (a[i]<0) then
if (a[i]*a[i]>100) then
inc(c);
end;
if(c>0) then
writeln ("Элементы найдены");/p>
else
writeln (""Элементы не найдены""
- 16.08.2018 13:37
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.