I := 1, 20 вывод В массиве нет числа X PROGRAM VAR, INTEGER Rand FORTO Example2 ; :=:= i 120DO BEGIN WRITE() : ARRAY [ 1.. 20 ] OF i ; BEGIN ; : NumberX.

Презентация:



Advertisements
Похожие презентации
PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.
Advertisements

Основные алгоритмы работы с одномерными массивами (поиск и сортировка) 8 класс 1.
Чтобы найти максимальный элемент в массиве и потом производить с ним какие-либо действия, нужно узнать его номер (индекс - I). Для этого вначале будем.
Месяц T [ 1:12 ]T [1]T [2]T [3]T [4]T [5]T [6]T [7]T [8]T [9]T [10]T [11]T [12] Температура начало конец.
Упорядоченный набор данных одного типа называется массивом. Каждый элемент массива описывается в общем виде как A[i], где A – имя массива, i – номер элемента.
Решение задач с использованием массивов
5.Дана матрица А и вектор Х соответствующих размерностей. Нечетные строки матрицы заменить элементами вектора Х. Результаты работы: n=4 m=
Тема: Нахождение минимального и максимального элемента в массиве.
Чтобы найти максимальный элемент в массиве и потом производить с ним какие-либо действия, нужно узнать его номер (индекс - I).Чтобы найти максимальный.
Месяц Среднее T [ 1:12 ]T [1]T [2]T [3]T [4]T [5]T [6]T [7]T [8]T [9]T [10]T [11]T [12] Температура
Массив – совокупность конечного числа данных одного типа.
Тема: «Понятие массива. Назначение. Тип. Размер. Размерность. Одномерный массив» :56:36.
3. Дана прямоугольная матрица, элементами которой являются целые числа. Поменять местами ее строки следующим образом: первую строку с последней, вторую.
Шутилина Л.А., A[1,1]A[1,2]A[1,3]A[1,4]A[1,5] A[2,1]A[2,2]A[2,3]A[2,4]A[2,5] A[3,1]A[3,2]A[3,3]A[3,4]A[3,5] A[4,1]A[4,2]A[4,3]A[4,4]A[4,5]
Работа с одномерными массивами Урок информатики 9 кл.
- это структура данных, представляющая собой упорядоченную совокупность значений одного типа.
Задача Разбить предложение по словам. В предложении могут быть знаки «.», «!», «?» и «,»
const n=10; var a:array[1..n] of integer; i,j,c,b,k:integer; begin randomize; for i:=1 to n do begin a[i]:=random(11)-5;write(a[i]:5) end;writeln;
Проверка пройденного материала. Исправьте ошибки в решении задачи: заполнить и вывести массив W(3) вещественных чисел Program Mass; Var b:Array[1..10]
АЛГОРИТМ ВЕТВЛЕНИЯ ОПЕРАТОР ВЕТВЛЕНИЯ. Какая задача решается по этой программе? Program Z1: Var a,b,c: integer; Begin Write ( vv a,b:); Read (a,b); C:=(a+b)*(b-a);
Транксрипт:

i := 1, 20 вывод В массиве нет числа X PROGRAM VAR, INTEGER Rand FORTO Example2 ; :=:= i 120DO BEGIN WRITE() : ARRAY [ ] OF i ; BEGIN ; : NumberX ; :=:= WRITELN( Массив случайных чисел : NamberX := 0, X INTEGER RANDOMIZE ; ) Rand [ i ] Random ( 50 ) Rand [ i ] : 4 ; ; READLN() ; END. ; 0 WRITELN ; WRITE() ; Введите X : X NumberX ; FORTO :=:= i 120DO :=:= IFTHEN ELSE Rand [ i ] = X NumberX :=:= NumberX + 1 IF NumberX = 0 THEN WRITELN ( В массиве нет числа, X ) ( Число, X в массиве присутствует, NumberX, раз ) да нет Rand [ i ] = X NamberX := NamberX + 1 да нет NamberX = 0 вывод Число X в массиве присутствует NumberX раз