Паскаль

[uchenik11]

Ребят помогите пожалуйста решить задачи, срочно нужно до завтра их решить. Вся надежда на Вас.
1. Магазин имеет товары различной стоимости. На ПК, обслуживающий магазин, поступает информация о стоимости каждой сделанной покупки. Составьте программу, вычисляющую выручку магазина за день работы, при условии, что количество покупок неизвестно, а покупка, стоимость которой 0 - последняя.
2. В гидрометеослужбе с помощью ПК вычисляют среднюю температуру за неделю (средняя температура за сутки уже определена), составьте такую же программу.
3. Составьте программу вывода на экран квадратный корней чисел от 1 до 49 в виде таблицы.

[Stilet]

3. Составьте программу вывода на экран квадратный корней чисел от 1 до 49 в виде таблицы.

var i:integer;begin for i:=1 to 49 do writeln(i:10,'|',sqr(i):10,'|');readln;

[KORT]

ну что-то такое по третьему заданию...не тестил...(негде) набросал на скорую руку...

var
  mas: array [1..7,1..7] of integer;
  i,j,o: integer;
begin
  o:=0;
  for j:=1 to 7 do
    begin    
      for i:=1 to 7 do
        mas[i,j]:=sqr(i+o);
      o:=o+7;
    end;
  for j:=1 to 7 do 
    begin
      for i:=1 to 7 do
        write (mas[i,j]:10);
      writeln;
    end;
end.