М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
BYHOY
BYHOY
19.10.2022 03:21 •  Информатика

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. осуществить ввод количества элементов массива с клавиатуры.

👇
Ответ:
abdigalikova1708
abdigalikova1708
19.10.2022
{
правильная программа, кол-во элементов вводится с клавиатуры
}
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.
4,8(17 оценок)
Открыть все ответы
Ответ:
1234554321я
1234554321я
19.10.2022

Этап предварительной постановки проблемы. Уже предварительная постановка проблемы является научной и, следовательно, творческой деятельностью, первой стадией научного поиска. Постановка проблемы — это фиксация недостаточности знаний в данной исследовательской ситуации.

Нередко проблема вначале выдвигается лишь в самой общей, пробной форме и в дальнейшем может потребовать более детальной разработки.

На этой стадии решается ряд важных вопросов. Если проблема связана с необъясненным эмпирическим материалом, то анализируется сам этот материал и объяснительный потенциал имеющихся теорий. Здесь же выдвигаются методологические идеи, намечаются возможные пути ее дальнейшего изучения, производится ее первичная оценка по различным основаниям, т.е. предвосхищаются и рассматриваются в эскизном виде некоторые моменты следующих этапов разработки проблемы.

Объяснение:

4,6(6 оценок)
Ответ:
katrinmirz
katrinmirz
19.10.2022

Бінарне Дес. Шіст. Графічне

0010 0000 32 20 пропуск (␠)

0010 0001 33 21 !

0010 0010 34 22 "

0010 0011 35 23 #

0010 0100 36 24 $

0010 0101 37 25 %

0010 0110 38 26 &

0010 0111 39 27 '

0010 1000 40 28 (

0010 1001 41 29 )

0010 1010 42 2A *

0010 1011 43 2B +

0010 1100 44 2C ,

0010 1101 45 2D -

0010 1110 46 2E .

0010 1111 47 2F /

0011 0000 48 30 0

0011 0001 49 31 1

0011 0010 50 32 2

0011 0011 51 33 3

0011 0100 52 34 4

0011 0101 53 35 5

0011 0110 54 36 6

0011 0111 55 37 7

0011 1000 56 38 8

0011 1001 57 39 9

0011 1010 58 3A :

0011 1011 59 3B ;

0011 1100 60 3C <

0011 1101 61 3D =

0011 1110 62 3E >

0011 1111 63 3F ?

 

Бінарне Дес. Шіст. Графічне

0100 0000 64 40 @

0100 0001 65 41 A

0100 0010 66 42 B

0100 0011 67 43 C

0100 0100 68 44 D

0100 0101 69 45 E

0100 0110 70 46 F

0100 0111 71 47 G

0100 1000 72 48 H

0100 1001 73 49 I

0100 1010 74 4A J

0100 1011 75 4B K

0100 1100 76 4C L

0100 1101 77 4D M

0100 1110 78 4E N

0100 1111 79 4F O

0101 0000 80 50 P

0101 0001 81 51 Q

0101 0010 82 52 R

0101 0011 83 53 S

0101 0100 84 54 T

0101 0101 85 55 U

0101 0110 86 56 V

0101 0111 87 57 W

0101 1000 88 58 X

0101 1001 89 59 Y

0101 1010 90 5A Z

0101 1011 91 5B [

0101 1100 92 5C \

0101 1101 93 5D ]

0101 1110 94 5E ^

0101 1111 95 5F _

 

Бінарне Дес. Шіст. Графічне

0110 0000 96 60 `

0110 0001 97 61 a

0110 0010 98 62 b

0110 0011 99 63 c

0110 0100 100 64 d

0110 0101 101 65 e

0110 0110 102 66 f

0110 0111 103 67 g

0110 1000 104 68 h

0110 1001 105 69 i

0110 1010 106 6A j

0110 1011 107 6B k

0110 1100 108 6C l

0110 1101 109 6D m

0110 1110 110 6E n

0110 1111 111 6F o

0111 0000 112 70 p

0111 0001 113 71 q

0111 0010 114 72 r

0111 0011 115 73 s

0111 0100 116 74 t

0111 0101 117 75 u

0111 0110 118 76 v

0111 0111 119 77 w

0111 1000 120 78 x

0111 1001 121 79 y

0111 1010 122 7A z

0111 1011 123 7B {

0111 1100 124 7C |

0111 1101 125 7D }

0111 1110 126 7E ~

0111 1111 127 7F DEL

Объяснение:

4,4(30 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ