Календарь на Паскале

[Сова]

Привет, а мне может тож кто ниб поможет...Составит календарь на текущий год в Паскале

[Сова]

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

[Сова]

Кто знает как заменить все отрицательные элементы двухмерного массива вещественных чисел нулями и подсчитать сумму положительных элементов

[Disel]

Program massiv;
Uses crt;
Var A:array [1..100,1..100] of real;
    i,j,n,m:integer;    s:real;

BEGIN
 clrscr;
  write('Enter N,M: ');
  readln(n,m);

  For i:=1 to n do
   For j:=1 to m do
    A[i,j]:=-50+round(100*random);

  For i:=1 to n do
   begin
    for j:=1 to m do
     write(A[i,j]:7:1);
     writeln;
   end;

   writeln;
   writeln('Rezultat');
   writeln;

   for i:=1 to n do
    for j:=1 to m do
     if a[i,j]<0 then
      a[i,j]:=0
     else s:=s+a[i,j];

     writeln('Summa:= ',s:10:1);
     writeln;
  For i:=1 to n do
   begin
    for j:=1 to m do
     write(A[i,j]:7:1);
     writeln;
   end;

 ReadKey;
END.

Вот попробуй.

[Сова]

Вычислить число сочитаний из n по m рассмотреть случаи без повторения и с повторениями , составить алгоритм и программу. Вот такой вопросик кто знает жду ответов

[Сова]

Первый раз зашла на этот форум ну очень стало интересно, а за ответ огромное спасибо!!!!! Очень помогли...

[Disel]

Program modul;
Uses crt;
Var a:integer;

BEGIN
 clrscr;
  write('Enter A: ');
   readln(a);
   a:=abs(a);
  writeln;
   writeln('A= ',a);

 ReadKey;
END.

Вот ко второй задачи.

[Сова]

тебе можно только позавидовать ты их как орехи щелкаешь ... Силен !!! ничего не скажешь...

[Disel]

Спасибо!!! Но на остальные задачки времени нету, извини. Может кто нибудь еще поможет.

[paloit]

если еще актуально - пиши в 362827711