Ребят, проходим паскаль, програмирование - ничего не понимаю, сколько бы не пыталась. На дом задали написать 2 программы к задачам. Вот задачи 1)Составить программу к задаче, которая считает сумму чисел, введенных с клавиатуры до первого отрицательного числа.
2)Сформировать и вывести на печать массив
a) ALFA(1..10) ввод с клавиатуры
б) DECO(1..50) DECO[I]=I^2
в) BETTA(1..100) BETTA=RANDOM(200)

1

Ответы и объяснения

Лучший Ответ!
2013-01-31T13:32:52+04:00

var

  sum, a : integer;

begin

  sum := 0;

  a := 0;

  repeat

    sum := sum + a;

    read (a);

  until a < 0;

  writeln (sum);

end.

 

var

  ALFA : array [1..10] of integer;

  DECO : array [1..50] of integer;

  BETTA : array [1..200] of real;

  i : integer;

begin

  for i := 1 to 10 do read (alfa[i]);

  for i := 1 to 50 do deco[i] := sqr (i);

  for i := 1 to 100 do betta[i] := random (200);

  writeln;

  for i := 1 to 10 do write (alfa[i]);

  writeln;

  for i := 1 to 50 do write (deco[i]);

  writeln;

  for i := 1 to 100 do write (betta[i]);

end.