Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 865 б
2 апреля 2023 19:27
1072
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. Осуществить ввод количества элементов массива с клавиатуры.
1
ответ
{
правильная программа, кол-во элементов вводится с клавиатуры
}
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.
правильная программа, кол-во элементов вводится с клавиатуры
}
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.
0
·
Хороший ответ
4 апреля 2023 19:27
Остались вопросы?
Еще вопросы по категории Информатика
Дано: V1=10Кбайт v1=2050бит/с v2=1005бит/с t1=t2 Найти: V2-? (байт) Помогите решить задачу...
№1 запишите десятичные эквиваленты следующих чисел: a) D4(16) b) 1001111(2) c) 16C(16) №2 представьте в десятичной, и в двоичной системах счисле...
Выбери верные ответы. Достоинства растровой графики: Масштабирование (в частности, увеличения) изображения с потерей качества. Неточная передача цве...
Поездка в Италию Светлана каждый месяц откладывала деньги на банковский счет, открытый в долларах. Для поездки в Рим она решила узнать, сколько накоп...
Видеопамять предназначена для: а) хранения информации о количестве пикселей на экране монитора б) хранения информации о цвете каждого пикселя экрана...