сервис вопросов и ответовPascal Проверить присутствие в массиве вещественных чисел отрицательных элементов, квадрат которых больше 100. Ограничения: -число
5-9 класс|
|
элементов в матрице не более 10-ти
Порядок ввода исходных данных:
-число элементов в массиве
-элементы массива
Порядок вывода результатов:
-сообщение Элементы найдены или Элементы не найдены.
ДимаLOST
01 нояб. 2014 г., 12:06:51 (9 лет назад)
SLubovs
01 нояб. 2014 г., 13:52:26 (9 лет назад)
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.
Rita425371
01 нояб. 2014 г., 15:56:53 (9 лет назад)
Воооот... Это Паскаль, если что-то не получится-пиши в сообщения.
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 ("Элементы найдены");
else
writeln ("Элементы не найдены");
readln();
end.
Ответить
Другие вопросы из категории
Скажите пож-ста а вы случайно не знаете как отключить Антивирус на компьютере а потом обратно включить. Просто я сейчас хочу установить The Sims 3 и там
написано на время загрузки отключить Антивирус.
Текст рассказа набран на компьютере. Информационный обьём получившегося файла 9 Кбайт. Текст занимает 6 страниц, на каждой странице одинаковое количество
строк, в каждой строке 48 символов. Все символы представлены в кодировке КОИ-8, в которой каждый символ кодируется 8 битами. Определите, сколько строк помещается на каждой странице.
Читайте также
Умоляю помогите!! найти произведение всех элементов массива вещественных чисел, меньших заданного числа. Размерность массива -10. Заполнение
массива осуществить случайными числами от 50 до 100
Ребят, помогите с задачей. Напишите программу подсчёта суммы всех отрицательных элементов заданного целочисленного массива размером 30 элементов. Если
отрицательных элементов нет, то сообщить об этом)
p.s. В паскале
ПОМОГИТЕ!!!удалить элемент линейного массива вещественных чисел, которые меньше среднего арифметического элемента массива.если таких элементов несколько ,
удалить последний из найденных.Помогите решить в паскале.(вычислить средн.ариф.номер э-та,....)
HELP!!
*Дан массив А целых чисел, состоящий из 20 элементов. Заполнить с клавиатуры.
1) Создать новый массив В, каждый элемент которого равен корню квадратному элемента массива А.
2)Найти сумму элементов массива с 11 по 15.
3) Найти элемент массива кратный 8 и его индекс.
4)Найти удвоенную сумму положительных элементов.
5)Вывести индексы тех элементов, значения которых больше значения предыдущего элемента( начиная со второго).
6) Определить, есть ли 2 пары соседних элементов с одинаковыми знаками.
7)Найти количество положительных элементов.
8)Вычесть из положительных элементов элемент с номером 2, а к отрицательным прибавить элемент с номером 4.
9) Удалить из таблицы все элементы массива, кратные 3 или 5.
10) Поменять местами второй элемент массива и первый чётный.
Помогите пожалуйста. Срочно нужно)
помогите пожалуйста решить задачу по информатике. Задан массив случайным образом.Преобразовать массив:отрицательные элементы, кратные 7, заменить
модулем, нулевые элементы заменить числом N(размер массива), а остальные отрицательные числа умножить на -2
Вы находитесь на странице вопроса "Pascal Проверить присутствие в массиве вещественных чисел отрицательных элементов, квадрат которых больше 100. Ограничения: -число", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.