Введите с клавиатуры элементы массива, состоящего из 10 чисел. Определите, является ли массив возрастающей последовательностью.

В последовательности а1, … аn все отрицательные члены увеличьте на 0,5, а все положительные, меньшие среднего арифметического, замените на 0,2.

В последовательности а1, … аn все члены, не равные максимальному, замените на 1.

Пусть даны целые числа а1, …, аn и b1, …, bn. Преобразуйте последовательность b1, …, bn по правилу, согласно которому, если ai <=0, то bi увеличивается в 10 раз, иначе bi заменяется нулем.
Замените каждый элемент массива средним арифметическим всех предшествующих ему элементов.

Пусть дана последовательность из N элементов. Увеличьте ее, вставив после каждого элемента такой же.

Пусть задан текст, представляющий собой последовательность строк. Признак конца текста вводится пользователем. Выведите на печать заданий текст в порядке возрастания длин строк. {Строковой тип}

Пусть дана (построчно) вещ-я матрица размером 7x4. Переставляя её строки и столбцы, добейтесь того чтобы наибольший элемент (один из них) оказался в верхнем левом углу. {Матрицы}

Написать процедуру, которое будет определять сумму элемента в строке квадратной матрицы.

Написать программу, которая вычисляет определитель квадратной матрицы третьего порядка.

Написать программу, которая вычисляет сумму диагональных элементов квадратной матрицы.

Написать программу, которая формирует два одномерных массива из элементов одной матрицы. В один оджномерный массив запишите все четные элементы, в другой- нечетные.

Создать и вывести матрицу. Разделить каждый элемент матрицы на среднее арифметическое элементов строки, в которой они расположены, а результат вывести на экран.

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

Составить программу для вычисления суммы элементов массива, расположенных ниже главной диагонали, произведения не равных нулю элементов, расположенных выше главной диагонали и количества элементов в главной диагонали, попадающий в интервал [1; 99].

Составить программу для вычисления суммы минимальных элементов главной и побочной диагоналей.
Создать квадратную матрицу, вывести ее на экран, поменять местами элементы строки и столбца, на пересечении которых находится максимальный элемент. Результат вывести на экран.

Наименьший элемент каждой строки прямоугольной таблицы, начиная со второй, замените наибольшим элементом предшествующей строки. Исходную таблицу и результат вывести на экран.

Составить программу, в которой в двумерном массиве меняются местами минимальный и максимальный элементы.

Помогите выполнить задания! (Что сможете!!)
Нужно срочно!
eMail: [email protected]

В правилах написано: "За вас никто не будет писать программу"

"Что сможете!!" и """""""""""" Как сможете""""""""

Цитата(Guest @ 4.11.2005, 07:27)

"Что сможете!!" и """"""""""""  Как сможете""""""""

Kaz EU начинай сам разбиратся в паскале, а потом когда конкретные вопросы появятся, тогда их и задавай. А задание на А - 4 не кому не по приколу, даже читать!!!

Начал читать условия заданий. Задолбался мотать скрол.

Цитата(Zero @ 4.11.2005, 11:35)

А задание на А - 4 не кому не по приколу, даже читать!!!

Полностью согласен. в
Возьми какую-нибудь книжку по Паскалю и начинай юзать. Абсолютно ничего сложного здесь не вижу. Все задачи решаются элементарно. И никому не по приколу решать за тебя задачи .
Выложи что ты сделал, и если появятся вопросы мы тебе поможем.

Народ, поогите пожалуйста, у меня кампилятор Turbo Pascal! При запуске моей проги: В строке: _____uses crt,SysUtils;_____ он пишет ошибку [Fatal Error] Project1.dpr(5): File not found: 'crt.dcu'!!! народ ПОДСКАЖИТЕ ПЛИИИИЗ ЧЕГО ДЕЛАТЬ!!!!!!!
program Project1;

{$APPTYPE CONSOLE}

uses crt,SysUtils;

label
finish;
var
a,b,d,e,x1,fa,f1:real;
ch:char;
function f(x:real):real;
BEGIN f:=4-EXP(x)-2*x*x
END;
procedure OutputOfResult;
BEGIN
ClrScr;
WRITELN('x=',x1);
WRITELN(' Погрешность результата =', d); WRITELN;WRITELN('Для продолжения нажмите любую клавишу...');
REPEAT ch:=readkey UNTIL ch<> '';
END;

BEGIN
ClrScr;
WRITELN (' Введите по порядку три числа '); WRITELN('координаты концов отрезка a,b,точность epsilon');
READLN(a, b, e); IF f(a)*f(b) > 0 THEN GOTO finish;
REPEAT
x1:=(a+ b)/2; f1:=f(x1);
IF f1=0 THEN
BEGIN d:=0;
OutputOfResult;
GOTO finish;
END; fa:=f(a);
IF fa*f1 < 0 THEN b:=x1 ELSE a:=x1; d:=b-a;
OutputOfResult;
UNTIL d < e; finish:END.

Один топик - один вопрос!!!
P.S. Причем тут crt, когда ты пишешь для консоли под Delphi. Такого модуля просто нету.

MF: А как эту хрень воще мона запустить? Под Delphi Например? Чега надо использовать?

Или например для TP? Скажи подалуйста!:)

Цитата(sheridan @ 6.11.2005, 17:47)

MF: А как эту хрень воще мона запустить? Под Delphi Например? Чега надо использовать?

Цитата(sheridan @ 6.11.2005, 17:52)

Или например для TP? Скажи подалуйста!:)

Помоему это не делфи, а паскаль...
Только код какой-то гнилой...
Но если уж вопрос -->

Цитата(sheridan @ 6.11.2005, 17:47)

А как эту хрень воще мона запустить?

То для этого надо удалить такие вещи например:
{$APPTYPE CONSOLE}
SysUtils
И вроде работает, но только ничего не происходит...

Код

uses crt; label finish; var a,b,d,e,x1,fa,f1:real; ch:char; function f(x:real):real; BEGIN   f:=4-EXP(x)-2*x*x END; procedure OutputOfResult; BEGIN   ClrScr;   WRITELN('x=',x1);   WRITELN(' Погрешность результата =', d); WRITELN;WRITELN('Для продолжения нажмите любую клавишу...');   REPEAT     ch:=readkey   UNTIL ch<> ''; END; BEGIN   ClrScr;   WRITELN (' Введите по порядку три числа ');   WRITELN('координаты концов отрезка a,b,точность epsilon');   READLN(a, b, e); IF f(a)*f(b) > 0 THEN     GOTO   finish; REPEAT   x1:=(a+ b)/2; f1:=f(x1);   IF f1=0 THEN      BEGIN        d:=0;        OutputOfResult;        GOTO finish;      END;   fa:=f(a);   IF fa*f1 < 0 THEN     b:=x1   ELSE     a:=x1;     d:=b-a;     OutputOfResult; UNTIL d < e; finish: END.