Занимавки с числа

Да се напише програма, която позволява да се въведат 5 числа и после отпечатва:

  • всички числа на един ред, разделени с запетая
  • числата в ред, обратен на въведения
  • първото и последното число
  • сумата на всяко число с въведеното преди него

Да се изпълни същата задача за N числа.

Публикувано в 10в, Паскал с етикети . Постоянна връзка.

4 коментара по Занимавки с числа

  1. kaloyan каза:
    VAR
      a:array[1..5] of integer;
      i,n : integer;
    BEGIN
      write('vavedete chislata: ');
        for i:=1 to 5 do
          readln(a[i]);
    writeln;
    writeln('na 1 red razdeleni sas zapetaq');
        for i:=1 to 5 do
          if i<5 then
            write(a[i],', ')
          else write(a[i]);
    writeln;
    writeln('v red obraten na vavedeniq');
        for i:=5 downto 1 do
          if i>1 then
            write(a[i],', ')
          else write(a[i]);
    writeln;
    writeln('parvoto i poslednoto chislo');
        writeln(a[1],', ',a[5]);
    writeln('sumata na vsqko chislo s tova predi nego');
        write(a[1],', ');
        for i:=2 to 5 do
          if i<5 then
            write(a[i]+a[i-1],', ')
          else write(a[i]+a[i-1]);
    Readln;
    END.  
    

Вашият коментар