Арифметические действия над числами

[DeathWisher]

Очень нужно сделать программу в среде Паскаля...
"Арифметические действия над числами пронумерованы в следующем порядке: 1 - сложение, 2 - вычитание, 3 - умножение, 4 деление. Дан номер действия и два числа А и В (В не равно нулю). Выполнить над числами указанное действие и вывести результат"

[Mad_Cat]

uses crt;
var n:integer;a,b:real;
begin
clrscr;
writeln('Введите номер');
readln(n);
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
case  n of
1:writeln(a+b);
2:writeln(a-b);
3:writeln(a*b);
4:writeln(a/b);
end;
end.

[DeathWisher]

спасибо огромное. а можно будет ещё с парочкой задач обратиться?

1)Найти номер первого минимального из данных десяти целочисленных элементов (минимальных несколько).
2)Описать функцию NMinMax(A,N,NMin,NMax), находящую номера минимального и максимального элемента массива A из N вещественных чисел. Выходные параметра: NMin (номер минимального элемента) и NMax (номер максимального элемента). С помощью этой функции найти номера минимальных и максимальных элементов массивов A,B,C размера NA,NB,NC соответственно.

[Mad_Cat]

спасибо огромное. а можно будет ещё с парочкой задач обратиться?

угу
icq 723-триста двадцать один
за денюжку- сделаю!

[Алсунчик]

=)тема (решение задач на использование одномерных массив)
1.Дана послдовательность чисел а1,а2...аn.Указать те ее елементы,которые принадлежат отрезку [c,d].
2.Последовательность действительных чисел оканчивается нулем.найти количество членов этой последовательности

и блоки схемы к 2 задачам=)

[Mad_Cat]

1)

for i:= 1 to n do
 if (a[i]>=с) and (a[i]<=d) then writeln(a[i]);

2)

k:=0;
repeat
readln(a);
k:=k+1;
until a=0;
writeln(k-1);