Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
1
PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i := 1 TO n DO begin a[i] :=-5+ random(10); WRITE( a[i],' ' ); end; WRITELN; {пустой оператор вывода для разделения полученного массива и преобразованного} Вставить число k после последнего отрицательного элемента массива readln(k); {вводим число k} For i:=1 to n do IF a[i]
![PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i := 1 TO n DO begin a[i] :=-5+ random(10); WRITE( a[i],' ' ); end; WRITELN; {пустой оператор вывода](http://images.myshared.ru/6/682838/slide_1.jpg "PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i := 1 TO n DO begin a[i] :=-5+ random(10); WRITE( a[i],' ' ); end; WRITELN; {пустой оператор вывода")
2
PROGRAM example1; const n=8; var a : ARRAY [1.. n] of NTEGER; i, j,k,s : INTEGER; BEGIN randomize; {заполняем массив случайными числами} FOR i := 1 TO n DO begin a[i] := 1+random(20) ; WRITE( a[i],' ' ); end; WRITELN; {пустой оператор вывода для разделения полученного массива и преобразованного} k:=n; i:=1; WHILE (i
![PROGRAM example1; const n=8; var a : ARRAY [1.. n] of NTEGER; i, j,k,s : INTEGER; BEGIN randomize; {заполняем массив случайными числами} FOR i := 1 TO n DO begin a[i] := 1+random(20) ; WRITE( a[i],' ' ); end; WRITELN; {пустой оператор вывода для разд](http://images.myshared.ru/6/682838/slide_2.jpg "PROGRAM example1; const n=8; var a : ARRAY [1.. n] of NTEGER; i, j,k,s : INTEGER; BEGIN randomize; {заполняем массив случайными числами} FOR i := 1 TO n DO begin a[i] := 1+random(20) ; WRITE( a[i],' ' ); end; WRITELN; {пустой оператор вывода для разд")
Еще похожие презентации в нашем архиве:
![I := 1, 20 вывод В массиве нет числа X PROGRAM VAR, INTEGER Rand FORTO Example2 ; :=:= i 120DO BEGIN WRITE() : ARRAY [ 1.. 20 ] OF i ; BEGIN ; : NumberX.](/thumbs/19/1200635/big_thumb.jpg "I := 1, 20 вывод В массиве нет числа X PROGRAM VAR, INTEGER Rand FORTO Example2 ; :=:= i 120DO BEGIN WRITE() : ARRAY [ 1.. 20 ] OF i ; BEGIN ; : NumberX.")
![Упорядоченный набор данных одного типа называется массивом. Каждый элемент массива описывается в общем виде как A[i], где A – имя массива, i – номер элемента.](/thumbs/5/524040/big_thumb.jpg "Упорядоченный набор данных одного типа называется массивом. Каждый элемент массива описывается в общем виде как A[i], где A – имя массива, i – номер элемента.")
![Шутилина Л.А., Lshutilina@yandex.ru. 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]](/thumbs/6/723134/big_thumb.jpg "Шутилина Л.А., Lshutilina@yandex.ru. 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]")
![Program maxsimum; const n=10; var a:array [1..n] of integer; max,i:integer;begin ВВОД ЭЛЕМЕНТОВ МАССИВА; max:=a[1]; for i:=2 to n do if a[i]> max then.](/thumbs/6/535442/big_thumb.jpg "Program maxsimum; const n=10; var a:array [1..n] of integer; max,i:integer;begin ВВОД ЭЛЕМЕНТОВ МАССИВА; max:=a[1]; for i:=2 to n do if a[i]> max then.")
![13.04.10 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;](/thumbs/6/690437/big_thumb.jpg "13.04.10 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;")
![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] Двумерный массив можно представить.](/thumbs/6/640025/big_thumb.jpg "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] Двумерный массив можно представить.")
