СРОЧНО! 1 ЗАДАЧА ПО ИНФОРМАТИКЕ!
10-11 класс
|
Дан массив из 12 элементов. Найти количество элементов массива по абсолютной величине больших 15.
var
a:array [1..12] of integer;
i,s:integer;
begin
writeln('vvedite 12 chisel');
for i:=1 to 12 do
readln(a[i]);
writeln('massiv');
for i:=1 to 12 do
write(a[i],' ');
writeln();
for i:=1 to 12 do
if abs(a[i])>15 then s:=s+1;
writeln('kolichestvo elementov = ',s)
end.
Другие вопросы из категории
Дан целочисленный массив X(N). Сформировать массив Y из элементов массива X, которые нечетные или отрицательные.
2.Получить развернутую форму десятичного числа 32478,38.
Читайте также
Опишите этапы решения на компьютере задачи нахождения значения a^b для целых чисел 0<a,b<10.
в заповедник выпустили z зверей. за год количество особей увличивается на определенный процент. Сколько зврей будет через определенное время?
1. условие задачи
2. математическая модель
3. список переменных с их расшифровкой
4. блок- схема алгоритма
5. программный код
1. Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й — равен случайному числу;
2-й — равен целой части квадратного корня из предыдущего элемента;
3-й-равен сумме двух предыдущих элементов.
ько информации несет свод законов племени, если в нем 12 строк и в каждой строке по 20 символов?