Programsumma; usescrt; constn=5; var a: array[1..n] of integer; m, i, s: integer; автоматическое заполнение случайными числами от1 до20 procedure input; procedure input; begin begin for i: =1 to n do p: =1; q: =20; randomize; begin for i: =1 to n do a[i]: =random(q-p+1)+p; write('a[', i, ']='); readln(a[i]); end; end end; procedure print; begin write('массив целых чисел а: '); for i: =1 to n do write(' ', a[i]) writeln; writeln; { пропуск строки } end; procedure sum( m: integer); begin s: =0; for i: =1 to m do s: =s+a[i]; end; begin clrscr; input; { заполнение массива из 5 элементов } clrscr; print; { печать заполненного массива } write('сколько элементов суммировать: '); readln(m); sum(m); writeln; { суммирование m элементов массива } writeln('сумма ', m, ' элементов массива равна: ', s); { суммирование всех элементов массива } sum(n); writeln; writeln('сумма всех ', n, ' элементов массива равна: ', s); write ('среднее арифметическое всех элементов равно ', s/n); readkey; end. з а д а н и я: 1. набрать и исполнить программу. 2. увеличить число элементов массива. 3. найти сумму 8 элементов массива. 4. осуществить ввод количества элементов массива с клавиатуры.
Ответы
PDF-документы давно стали необходимой составляющей офисной работы. В этом формате хранятся цифровые архивы, юристы согласуют договоры, дизайнеры верстают брошюры, издательства публикуют электронные книги. До недавнего времени главным достоинством и одновременно с этим недостатком PDF-документов было отсутствие возможности редактировать текст в них. Благодаря развитию технологий эту и другие задачи научилась решать программа ABBYY FineReader, которая стала многофункциональным редактором любых документов. «Хайтек» вместе с ABBYY рассказывает, как технологически устроено редактирование PDF-документов в новой версии FineReader 15, каким образом программа сравнивает версии документов и как работает распознавание иероглифов с нейросетей.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Замени восьмеричную цифру 2 тремя двоичными цифрами (триадой)!
Написать программу по блок-схеме на
Завтра практическая чем можете.
Определите названия файлов:
правильная программа, кол-во элементов вводится с клавиатуры
}
Program Summa;
uses crt;
type a1= array of integer;
var a: a1;
m,s,n: integer;
procedure Input;
const p=1;
const q=20;
var i: integer;
begin
randomize;
begin
for i:=0 to n-1 do a[i]:=random(q-p+1)+p;
write('a[',i,']=');
readln(a[i]);
end;
end;
procedure Print;
var i: integer;
begin
write('Массив целых чисел А: ');
for i:=0 to n-1 do write(' ',a[i]);
writeln;
writeln;
end;
procedure Sum( m: integer);
var i: integer;
begin
s:=0;
for i:=0 to m-1 do s:=s+a[i];
end;
Begin
ClrScr;
write('введите кол-во элементов в массиве: ');
readln(n);
SetLength(a, n);
Input;
ClrScr;
Print;
write('Сколько элементов суммировать: ');
readln(m);
Sum(m);
writeln;
writeln('Сумма ',m,' элементов масссива равна: ', s);
Sum(n);
writeln;
writeln('Сумма всех ',n,' элементов массива равна: ', s);
Writeln ('Среднее арифмитическое всех элементов равно ', s/n);
Readkey;
end.