Задание: 1. Для поставленной задачи (по варианту) в тетради составить математическую модель задачи. 2. Подготовить лист рабочей книги MS Excel для вычислений. 3. Работа с надстройкой Поиск решения (Сервис – Поиск решения 4. Вывести два отчета: 4.1. Отчет по результатам 4.2. Отчет по пределам В литейном цехе в жидкий металл для получения нужного сплава вводится 4 элемента в количестве не менее 6, 12, 4, 9 единиц соответственно. В наличии имеется два материала В1 и В2, которые содержат эти 4 элемента и имеют различную стоимость (таблица 7). Сколько нужно ввести в сплав металла В1 и В2, чтобы получился нужный сплав при минимуме затрат.

uses crt;
type TRec = Record
FIO: String[20];
TEL: String[7]
end;
var rec: TRec; i:integer;
who:string; flag:boolean;
a: array [1..20] of TRec;

begin
a[1].FIO := 'Иванов Петр';
a[1].TEL := '+374844';
a[2].FIO := 'Крылова Света';
a[2].TEL := '+373129';
a[3].FIO := 'Соловей Иван';
a[3].TEL := '+370929';
//создай дальше до 10 сама
write('Write fio '); readln(who);
for i:=1 to 3 do
begin

if a[i].FIO = who then
begin
writeln('Номер ',who,' = ',a[i].TEL) ;
flag:=true;
end
else
flag:=false;
end;
if flag=false then
writeln('cannot find ',who);
readln;
end.

Я так понимаю, что вы хотели в программе проверить числа на четность/нечетность, но программа по вашему коду этого не сделает.

В таком виде должно быть без ошибок, но работает по-прежнему неверно:

#include "stdio.h"
//#include "math.h"
#include <iostream>
using namespace std;

int main ( )
{
float *a;
int i,n;
printf("n=");
scanf("%i",&n);
a=(float*)malloc(n*sizeof(float));
for( i=0; i<=n-1;i++ )
{
printf("a[%i]= ",i );
scanf("%i",&a[i]);
}
for (i=0; i<=n-1; i++)
{
if (a[i]<0)
{
printf("oshibka\n");
}
else
{
if (a[i]/2==0)
{
printf("chetnoe \n");
}
else
{
printf("nechetnoe\n");
}
}

}
system("pause");
return 1;
}