1) Сколкьо чисел в массиве А30 находится в интервале от 0 до 6.
5-9 класс
|
2) В массиве А30 заменить все отрицательные числа на 5,а остальные на 2.
Написать программой..
1)
for i:= 1 to 30 do
if ((A[i]>=0) and (A[i]<=6))
then k:=k+1;
Где k - счетчик чисел.
2)
for i:= 1 to 30 do
begin
if (A[i]<0) then A[i]:=5;
else A[i]:=2;
end;
Другие вопросы из категории
16 12 15 11 14 10
16 17 18 26 27 28 36 37 38
27 34 41 48
56 48 40
112 122 132 212 222 232
что это
а)панель задач б)Главное окно в)окно
Решите следующий числовой ребус: СМЕХ + ГРОМ = ГРЕМИ.
Читайте также
{Программа заполняет массив Rand случайными числами в диапазоне от 0 до 50,
вводит число Х, и вычисляет, сколько раз Х входит в массив Rand}
Var Rand: array[1..20] of integer;
I, X, NumberX : integer,
Begin
{Установка датчика случайных чисел}
Randomize;
{Заполнение массива случайными числами и вывод их на экран}
Writeln(‘Массив случайных чисел:’)
For I:=1 to 10 do
begin
Rand[I]:=random(50); Write(Rand[I]:4)
End;
Writeln;
{Ввод Х}
Write(‘Введите Х:’)); Readln(X);
{Подсчет числа вхождений Х в массив}
NumberX:=0;
For I:=1 to 10 do
If Rand(I)=X then NumberX:=NumberX+1;
{Анализ и вывод результата}
If NumberX=0
Thenwriteln(‘В массиве нет числа’,X)
Else writeln(‘Число’,X,’в массиве присутствует’,NumberX,’раза’)
End.
программы:
For i:=1 to 100 do
For j:=1 to 18 do
If a [j-1] > a [j+1] then
Begin
T := a [j-1]; a [j-1] := a [j+1]; a [j+1] := t
End;
Чему станет равен элемент массива с номером 4, если в начале работы фрагмента в массиве находились числа от 20 до 1 в порядке убывания?
элементов с нечётными индексами
2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве
генерированных чисел.(на паскале)
найдёт сумму всех отрицательных элементов массива и выведет результат на экран