Студенту Мише задали написать функцию, которая получает на вход число и массив из 16 элементов, и возвращает номер
элемента, равного этому числу. Если таких элементов
несколько – годится любой, если их нет, функция должна
вернуть -1. Вот алгоритм, реализованный Мишей.
1) Что выведет программа Миши при A=5 для массива
11, 3, 2, 5, 7, 4, 6, 1, 15, 8, 12, 10, 9, 5, 20, 14?
2) Для каких из приведённых ниже массивов алгоритм
Вовы будет работать верно при любом A? ответ
обоснуйте.
а) 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13
б) 51, 52, 53, 54, 55, 56, 57, 58, 59, 50, 60, 61, 52, 63, 64, 65
в) 17, 87, 43, 22, 11, 88, 43, 56, 90, 21, 17, 84, 77, 10, 45, 53
г) 1, 3, 3, 3, 9, 9, 9, 9, 9, 9, 9, 9, 9, 27, 27, 27
д) 8, 11, 22, 24, 36, 52, 55, 56, 61, 64, 70, 71, 77, 78, 81, 88
е) 67, 66, 62, 60, 59, 58, 57, 56, 50, 44, 43, 42, 38, 35, 20, 13

Программа №1.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, h, s:real;
begin
   writeln('Enter a, b and h');
   readln(a, b, h);
      s:=(0.5*(a+b))*h;
   writeln('Area of the trapezoid=', s);
   readln;
end.

Программа №2.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, s:integer;
begin
   writeln('Enter the price and quantity');
   readln(a, b);
      s:=a*b;
   writeln('Cost of purchase=', s);
   readln;
end.

Программа №3.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, w:real;
begin
   writeln('Enter the speed and time');
   readln(a, b);
      w:=a*b;
   writeln('Way=', w);
   readln;
end.


Вместо "НАЗВАНИЯ ПРОГРАММЫ" напишите название Вашей программы.
Так как в некоторых задачах не оговорено, что числа целые или нет, я выбрал на всякий случай вещественный(real).

Var
a,b,c: integer;
x,y,z:string;
begin
x:='рубль';
y:='рубля';
z:='рублей';
writeln('Сколько стоит метр ткани?(в рублях)');
readln(a); writeln('Сколько вы хотите купить ткани?(в метрах квадратных)'); readln(b);
c:=a*b;
if c=1 then
begin
writeln('Это будет стоить',' ',c,' ',x);
end;
if (2<=c) and (c<=4) then
begin
writeln('Это будет стоить',' ',c,' ',y);
end;
if (5 <= c) and(c <= 1000000) then
begin
writeln('Это будет стоить',' ',c,' ',z);
end;
end.

В зависимости от результата программа будет выводить разное окончание.
1 рубль;
3 рубля;
100 рублей.