екса) и т. д.
Описание одномерного массива:
:array. . . of
и - номера первого и последнего элементов массива
Например, строка
Var Mas: array1. . 17 of real;
Описывает массив из 17 чисел типа Real, имеющих порядковые номера (индексы) с 1,2,. . . ,17, а строка
Var Mas: array0. . 15 of integer;
Описывает массив из 16 целых чисел с номерами 0,1,. . . ,15
IV. Закрепление изученного материала.
Задача 1.
Сформировать и вывести на экран последовательность из n элементов, заданных датчиком случайных чисел на интервале -23, 34.
Program Z1;
Var a: array1. . 100 of real;
i, n: integer;
Begin
Write (введите количество элементов массива); Readln (n);
For i:1 to n do
begin
ai: random(57)-23;
writeln(ai:3);
end;
end.
Задача 2
Найти сумму элементов одномерного массива. Размер произвольный. Элементы вводятся с клавиатуры.
Program Z2;
Var a: array1. . 100 of real;
i, n: integer;
s: real;
Begin
Write (n); Readln (n);
s:0;
For i:1 to n do
begin
write (введите число); readln (ai);
s:sai;
end;
writeln(сумма элементов равна ,s:4);
end.
Задача 3
Найти произведение элементов одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры.
Program Z3;
Var a: array1. . 100 of real;
i, n: integer;
s: real;
Begin
Write (n); Readln (n);
s:1;
For i:1 to n do
begin
write (введите число); readln (ai);
s:sai;
end;
writeln(сумма элементов равна,s:4);
end.
V. Постановка домашнего задания.
Задача 1
Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры. Найти:
a. Сумму элементов, имеющих не
Страницы: << < 1 | 2 | 3 > >>