Var
n, k, s: integer;
begin
s := 0;
k := 0;
repeat
write('Введите целое число = ');
readln(n);
if n > 0 then begin
k := k + 1;
s := s + n;
end
until n = 0;
writeln('Среднее арифметическое = ', s / k);
end.
"L1" - Название файла
".TXT" - расширение файла (создан в блокноте, текстовый формат)
"1 КБ" - объем файла
"<span>02.03.2007.18:00</span>" - Дата создания документа.
Сейчас вычисления совсем другие, не такие как раньше. Вычисляют погоду, ядерные реакции, движение планет. Но и задачи на компьютеры возлагают разные.Раньше не было персональных компьютеров. А сейчас они есть в довесок к супер компьютерам. Некогда раньше была принята стратегия популизировать ПК из военной сферы и области образования в область персонального использования. Поэтому сейчас пользоваться компьютером стало легче. Этому даже учат в школе. Все развивается. И растут области применения ПК.
Составьте программу ввода и вывода массива;3,4,-9,8,1,-6,2,-5,-1,7,5,9.
В ТАБЛО ДАМ ПИЗ Д...
Var a: array[1..50] of Integer;
x,i: integer;
begin
writeln('количество элементов в массиве:');
readln(x);
for i:=1 to x do
begin
readln(a[i]);
end;
for i:=1 to x do
begin
writeln(a[i]);
end;
end.