Пожалуйста помогите решить задачи на Массивы, текстовые данные и оператор цикла

[Rusl92]

Найти произведение ненулевых элементов в одномерном числовом массиве и напечатать.
var a:array[1..100]of integer;
i:integer;pr:integer;
begin
write('Введите количество элементов массива');
readln(n);
for i:=1 to n do
begin
write(' а[',i,'] = ');
readln(a[i]);
end;pr:=1;
for i:=1 to n do
if ((a[i]>0) or (a[i]<0)) then pr:=pr*a[i];
write('Произведение равно ',pr:5);
readln;
end.

[Stilet]

А так:

var e,s:string;r,c,i:integer;
begin
readln(s);
val(copy(s,1,pos('+',s)-1),i,c);
delete(s,1,pos('+',s));
r:=i;
val(copy(s,1,pos('-',s)-1),i,c);
delete(s,1,pos('-',s));
r:=r+i;
val(s,i,c);
r:=r-i;
Writeln(r);
readln;
end.

[Rusl92]

Напиши подробнее про последнюю задачу, не понял до конца

[stat]

Пишу программы! Не дорого и качественно! Контакты на сайте:
http://programmist.moy.su/

[alena-yalymova]

Большое спасибо за ответы.
Пожалуйста, посмотрите еще 1 и 4 задачу.

1.Вычислить значения функции и распечатать в виде таблицы    y=((Xί,Yί/arccosX)+0.41³*tg(x+0.5))³ при  X1=-1, Xί+1=0.5, ί=0.1,…,7

Про 4 задачу, к сожалению. ни чего подробнее не могу, т.к. написала именно то, что нам дано в условии (это межсессионная лабораторная, подробнее не объясняли)

[Rusl92]

к сожалению я не понял эти задачи, само условие!

[Rusl92]

Я понял эту задачу так:
12 Йогурт
15 Пироженое
Вводите цену, затем название товара 7 товаров

Я написал прогу:

uses crt;
const n=7;
var cena:array[1..n] of real;
tovar:array[1..n] of string;
i,j:integer;
tmp:real;
tmp2:string;
begin
clrscr;
writeln('Vvedite dannie');
for i:=1 to n do
begin
readln(cena[i],tovar[i]);
cena[i]:=cena[i]*1.1;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if cena[i]<cena[j]
then
begin
tmp:=cena[i];
cena[i]:=cena[j];
cena[j]:=tmp;
tmp2:=tovar[i];
tovar[i]:=tovar[j];
tovar[j]:=tmp2;
end;
for i:=1 to n do
writeln(cena[i]:3:3,tovar[i]);
readln;
end.
Если что непонятно, пишите.

[Stepler]

Я понял эту задачу так:
12 Йогурт
15 Пироженое
Вводите цену, затем название товара 7 товаров

Ну что ж неплохо, но не совсем то что нужно в задании!
В задании явно сказано

Задан массив из семи строк. В каждой строке "наименование товара_цена".

имееться в виду нужно все в строке прописать типа так
"Йогурт_20" или так "Йогурт 20".

[Rusl92]

Практически так же!
Если так смотреть, то нужно будет считывать после символа _ и перед ним!

[Rusl92]

Я сделал
20 Йогурт
30 Масло
и т.д.
потом сортируется все и цена увеличивается на 10 процентов!