Задача 3. Дан одномерный массив. С клавиатуры вводится число

1. Постановка задачи.

Дан одномерный массив. С клавиатуры вводится число. Если такое число есть в массиве, то выводится его номер.

2. Математическая модель.

Если a[i] = s тогда, вывести i

3. Блок-схема

4. Список идентификаторов.

Имя	Смысл	Тип
A	Элементы массива	Integer
N	Кол-во элементов массива	Integer
I	Счетчик	Integer
S	Число, которое ищем в массиве	Integer

5. Код программы.

program z3;

{$mode objfpc}{$H+}

uses

{$IFDEF UNIX}{$IFDEF UseCThreads}

cthreads,

{$ENDIF}{$ENDIF}

Classes, Math;

var a:array of integer;

i, n, s:integer;

begin

writeln ('Введите кол-во эл-тов массива');

readln (n);

writeln ('Введите эл-ты массива');

setlength (a, n);

for i:= 1 to n do

read (a[i]);

writeln ('Введите число, которое вы хотите найти в массиве');

readln (s);

for i:= 1 to n do

if a[i] = s then

write (i, ' ');

readln (n);

end.

6. Результаты выполнения программы.