сервис вопросов и ответовсоздать массив а из десяти целых чисел, принадлежащих промежутку [0;25). Вывестиполученный массив на экран.
10-11 класс|
|
Подсчитать к - количество
Kornienko199865
14 окт. 2016 г., 8:30:21 (7 лет назад)
Semenova1001
14 окт. 2016 г., 9:44:15 (7 лет назад)
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
randomize;
k:=0;
for i:=1 to n do begin
a[i]:=random(25);
if a[i]>12 then k:=k+1;
end;
for i:=1 to n do begin
write(a[i]); write(' '); end;
writeln(k); end.
Ответить
Другие вопросы из категории
Информационный объем сообщения записанного в 16-битовом коде Unicod, составляет 12 Кбайт. Сколько страниц занимает это сообщение, если известно, что на каж
дой странице 64 строки по 32 символа в строке?
Дан двумерный массив размером 5*6, заполненный целыми числами с клавиатуры. Сформировать одномерный массив, каждый элемент которого равен произведению
четных положительных элементов соответствующего столбца.
Дан двумерный массив размером 4*4, заполненный вещественными числами с клавиатуры. Сформировать одномерный массив, каждый элемент которого равен количеству отрицательных элементов соответствующей строки.
Дан двумерный массив размером 6*3, заполненный целыми числами с клавиатуры. Сформировать одномерный массив, каждый элемент которого равен наибольшему по модулю элементу соответствующего столбца.
Дан двумерный массив размером 5*6, заполненный случайными числами в диапазоне [-10;10]. Сформировать одномерный массив, каждый элемент которого равен первому четному элементу соответствующего столбца, если такого не, то равен нулю.
РЕШИТЕ ЛЮБУЮ ИЗ 4-х ЗАДАЧ, ПОЖАЛУЙСТА!!
C1 правильно ли я написала программы к графикам? (2 пораболы) var x,y:real;
begin
readln(x,y);
if(y<=-x)and(y>=x*x-3)and(x<=0)then
write('принадлежит')
else
write('не принадлежит')
end.
2 график)
var x,y:real;
begin
readln(x,y);
if (y>=x*x*x)and(y>=-1)and(y<=2-x*x) then
write('принадлежит')
else
write('не принадлежит')
end.
Читайте также
найти сумму квадратов натуральных чисел от 15 до 25. Создать массив а из десяти целых чисел принадлежащих промежутку [0;25) Вывести полученный массив на
экран. подсчитать k-количество элементов массива значение которых превышает 12 ПОМОГИТЕ СРОЧНО
задать циклы для решения задачи: формирует массив Е из 162 случайных чисел принадлежащих промежутку[15:30]. Параметром цикла является переменная X.
Нумерация начинается с 1.
Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
Дан массив, состоящий из 100 целых чисел:
а) Вывести все числа, которые встречаются в этом массиве по нескольку раз;
б) Вывести все числа, которые встречаются в массиве только по одному разу.
Вы находитесь на странице вопроса "создать массив а из десяти целых чисел, принадлежащих промежутку [0;25). Вывестиполученный массив на экран.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.