Табулирование функции, последовательности.

@Kirioha · Регистрация: 15.10.2009

Author24 — интернет-сервис помощи студентам

Помогите,пожайлуста,нубу решить след. задачи:
1)Вычислить и напечатать таблицу значений функции у=а/n для n,изменяющегося от 1 до 10 с шагом 1;a=2.
2)В заданной числовой последовательности a1,a2,...,a50 найти и вывести на печать номер первого отрицатьного элемента.Если такового нет,то напечатать значение 0.
3)Определить величину максимальной разности между элементами последовательностей a1,a2,...,a15 и b1,b2,...,b15. Заранее благодарю!!!

@Давид · 15.10.2009, 21:21

Kirioha, Вот номер 2!

Pascal

program hhh;
Uses crt;
 Var a:array [1..100] of integer;
     i,n:integer;
     iotr:byte;
begin
clrscr;
writeln ('Vvedite kol - vo elementov: ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (a[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (a[i]:3);
writeln;
For i:=1 to n do
  if a[i]<0 then
              iotr:=i;
Writeln ('Nomer pervogo otricat elemente = ',iotr);
Readln
End.

@Kirioha · 15.10.2009, 23:04 **[ТС]**

Давид,спаибо!Но есть одно 'НО':
кОГДА вводишь несколько отрицатьльных чисел,то выводится номер последнего отрица-го элемента...В чём дело?Как это исправить?

@Puporev · 15.10.2009, 23:10

Pascal

For i:=1 to n do
  if a[i]<0 then
    begin
      iotr:=i;
      break;
    end;

@Kirioha 0 / 0 / 0 Регистрация: 15.10.2009 Сообщений: 5
		1
	Табулирование функции, последовательности. 15.10.2009, 21:00. Показов 582. Ответов 3 Метки нет (Все метки) Помогите,пожайлуста,нубу решить след. задачи: 1)Вычислить и напечатать таблицу значений функции у=а/n для n,изменяющегося от 1 до 10 с шагом 1;a=2. 2)В заданной числовой последовательности a1,a2,...,a50 найти и вывести на печать номер первого отрицатьного элемента.Если такового нет,то напечатать значение 0. 3)Определить величину максимальной разности между элементами последовательностей a1,a2,...,a15 и b1,b2,...,b15. Заранее благодарю!!! 0

@Kirioha 0 / 0 / 0 Регистрация: 15.10.2009 Сообщений: 5
	15.10.2009, 23:04 [ТС]	3
	Давид,спаибо!Но есть одно 'НО': кОГДА вводишь несколько отрицатьльных чисел,то выводится номер последнего отрица-го элемента...В чём дело?Как это исправить? 0

	15.10.2009, 23:10