Массивы в Паскале. Создание массива: var a:array [1..5] of integer; i:integer; begin for i:=1 to 5 do begin write ('a[',i,']='); readln(a[i]); end; end.

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



Advertisements
Похожие презентации
Способы ввода значений в массив на Паскале 1) Заполнение массива с клавиатуры а) program massiv_1; const n=5; vari: integer; a: array[1..n] of integer;
Advertisements

Дан массив. Найти максимальный и минимальный элементы массива и поменять их местами. Выполнение программы Выполнение программы.
Одномерный массив Turbo Pascal 9 класс. Объясните каждый шаг в программе. Что делает программа? Сколько раз срабатывает цикл? Var A : array [1..10] of.
Program Summa; {Суммирование элементов в 1м массиве} Uses Crt; Type Massiv = Array [1..100] of Real; Var A : Massiv; i, N : Integer; S : Real; Begin Write('Введите.
Одномерные массивы Введение. 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.
5.Дана матрица А и вектор Х соответствующих размерностей. Нечетные строки матрицы заменить элементами вектора Х. Результаты работы: n=4 m=
PROGRAM example1; {сдвинуть циклически элементы массива вправо} const m=10; var a : ARRAY [1.. m] of INTEGER; i,k,n: INTEGER; BEGIN randomize; n:=m; WRITELN('Полученный.
ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ С ОДНОМЕРНЫМИ МАССИВАМИ. ЗАДАЧА: Вычислить сумму элементов массива program summa(input,output); var I:integer; T:array[1..5] of.
Решение задач с использованием массивов
9.Задана целочисленная матрица. Вывести N чисел - максимальные значения элементов для каждой строки, где N - количество строк матрицы
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;
29. Дан массив целых чисел. Найти индексы элементов, значения которых больше значения предыдущего элемента (на­чиная со второго). Program a29; Var i,n:integer;
3. Дана прямоугольная матрица, элементами которой являются целые числа. Поменять местами ее строки следующим образом: первую строку с последней, вторую.
Тема: Нахождение минимального и максимального элемента в массиве.
Проверка пройденного материала. Исправьте ошибки в решении задачи: заполнить и вывести массив W(3) вещественных чисел Program Mass; Var b:Array[1..10]
Тема: «Понятие квадратная матрица» :17:47.
Задача Разбить предложение по словам. В предложении могут быть знаки «.», «!», «?» и «,»
I := 1, 20 вывод В массиве нет числа X PROGRAM VAR, INTEGER Rand FORTO Example2 ; :=:= i 120DO BEGIN WRITE() : ARRAY [ ] OF i ; BEGIN ; : NumberX.
Козлова О.Б., МБОУ СОШ 199, Новосибирск Двухмерные массивы.
Транксрипт:

Массивы в Паскале

Создание массива: var a:array [1..5] of integer; i:integer; begin for i:=1 to 5 do begin write ('a[',i,']='); readln(a[i]); end; end.

Создание массива: const n=20; var a:array [1..n] of integer;i :integer; begin for i:=1 to n do begin write ('a[',i,']='); readln(a[i]); end; end.

Найти сумму положительных элементов массива. const n=4; var a:array [1..n] of integer;i,s:integer; begin for i:=1 to n do begin write ('a[',i,']='); readln(a[i]); end; for i:=1 to n do begin if a[i]>0 then s:=s+a[i]; end; writeln ('сумма=',s); end.

Найти количество положительных элементов массива. const n=4; var a:array [1..n] of integer;i,s:integer; begin for i:=1 to n do begin write ('a[',i,']='); readln(a[i]); end; for i:=1 to n do begin if a[i]>0 then s:=s+1; end; writeln (количество=',s); end.

Дан массив. Сообщить элементы массива, кратные М. const n=4; var a:array [1..n] of integer;i,M:integer; Begin writeln (введи М); readln (M); for i:=1 to n do begin write ('a[',i,']='); readln (a[i]); end; for i:=1 to n do begin if a[i] mod M =0 then writeln (a[i]); end; end.