Сижу на практике.Помогите пожалуйста с задачами на паскале!!
Сижу на практике, осталось написать задачи на паскале, помогите пожалуйста!!!
Нужно код написать
1.Дан массив А(25). Все элементы до минимального элемента переписать в массив В,элементы после максимального в массив С.
2.Склад промышленных товаров (10 наменований): Название товара, цена единицы товара, количество. В массивы А,В,С занести товар , цена и количество соответственно. На экран выдать таблицу на складе и стоимость каждого наименования.
program 1zadanie;
const
Min = 5;
Max = 20;
var
i,j,k:integer;
A,B,C: array [1..25] of integer;
begin
j,k = 1;
for i=1 to 25 do
if A[i]< Min then
begin B[j]=A[i]; j=j+1;end;
else
if A[i]> Max then
begin C[k]=A[i]; k=k+1;end;
next i;
end.
{правила турбопаски7,0}
походу опоздали, отхватил студент баранку :)
Добавлено спустя 08 минут 46 секунд
и вообче, как говорил мой препод: высшее образование необязательно, а служба в армии - почетная обязанность
0.00 
Сижу на практике.Помогите пожалуйста с задачами на паскале!!
