Добавил:
Tushkan
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторные работы / Машеров (13 вариант) / lab3 / Программы
.txt for i:=1 to 20 do
begin
sum := 0;
for j:=1 to 10 do
sum := sum + data(i,j);
data(i,11) := sum/10;
end;
begin
sum := 0;
for j:=1 to 10 do
sum := sum + data(i,j);
data(i,11) := sum/10;
end;
Соседние файлы в папке lab3