Помогите начинающему программисту

[Francio]

Помогите начинающему программисту

Всем привет.Помогите кому не сложно и кто шарит в паскале, написать несколько программ .Я сам пробовал сделать, но ничего не получается и я многово не понимаю так как пролежал много времени в больнице и пропустил занятия.

вот они

1)Студент купил A тетрадей по Sa рублей и B обложек по Sb рублей. Подсчитать стоимость покупки и выдать чек.

2)Заданы три числа: X,Y,Z. Найти минимальное и макимальное.

3)Из N введенных челых чисел найти минимальное из положительных.

4)Вводится одномерный массив из 20 элементов, заполняемый случайными целыми числами в диапазоне {-30 - +30}. Каждый третий элемент, если он отрицательный, возвести в квадрат.

 

[DDS]

Задача 1

var a,b,sa,sb:byte;s:integer;
begin
read(a,sa);
read(b,sb);
s:=a*sa+sb*b;
writeln(s);
end.

Задача 2

var x,y,z,max,min:integer;
begin
read(x,y,z);
if x>y then if x>z then max:=x;
if y>x then if y>z then max:=y;
if z>x then if z>x then max:=z;

if x<y then if x<z then min:=x;
if y<x then if y<z then min:=y;
if z<x then if z<x then min:=z;

writeln('min',min);
writeln('max',max);
end.

Задача 3

var min,i,n,s:byte;
begin
n:=5;
min:=255;
for i:=1 to n do
begin
read(s);
if (s>0)and(s<min) then min:=s;
end;
writeln(min);
end.

Задача 4

var a:array[1..20] of integer;i:byte;
begin
randomize;
for i:=1 to 20 do
a[i]:=random(61)-30;
i:=1;
repeat
if a[i]>0 then a[i]:=sqr(a[i]);
i:=i+2;
until i>=20;
for i:=1 to 20 do
write(a[i]:5);
end.

ЗЫ Задачи детсадовские, так что советую всё-таки самостоятельно прорешать их, а в моё решение использовать, если что-нибудь непонятно.

 

[Francio]

DDS ты крут Спс огромное и удачи.

Вот уже чет неправильно сделал и незнаю в чем ошибка в первой задаче

var
a,b,sa,sb:byte;
s:integer;

begin
Write('Vvedite kol-vo tetradok i stoimost= ');
ReadLn(a,sa);
Write('Vvedite kol-vo oblojek i stoimost= ');
ReadLn(b,sb);

s:=a*sa+sb*b;
writeln('Stoimost pokypki sostavila= ',s)

end.

а нет все работает)