var
i, n, m: integer;
a: array of integer;
begin
write('Размер массива? ');
read(n);
setlength(a, n);
writeln('Введи элементы массива');
for i := 0 to n - 1 do
read(a[i]);
write('Что искать? ');
read(m);
for i := 0 to n - 1 do
if a[i] = m then
begin
write('Найден элемент с номером ', i + 1);
exit;
end;
write('Нет такого элемента');
end.
HTML-код - разметка веб-страницы, выполненная с помощью языка HTML и включающая специальные символы (теги) , используемые браузером для конструирования дизайна на основе текстового кода.
Program z1;
var s,a,b:real;
begin
writeln('введите стороны прямоугольника');
readln(a,b);
s:=a*b;
writeln(s);
end.