Регистрация
khmelevaya
24.02.2022 13:07
Информатика
Есть ответ 👍

Дан массив всех целых чисел .найти сумму элементов в массиве. (паскаль)

265
378
Посмотреть ответы 3

Ответы на вопрос:

matthewfeat
matthewfeat
4,4(74 оценок)

решение #1

var a: array[1..10] of integer;

i,s: integer;

begin

s: =0;

for i: =1 to 10 do

read(a[i]);

for i: =1 to 10 do

s: =s+a[i];

writeln(s);

end.

 

в этом решении вводится 10 целых чисел, и считается их сумма.

пример

ввод

1 2 3 4 5 6 7 8 9 10

вывод

55

 

решение #2

var a: array[1..1000] of integer;

i,s,n: integer;

begin

read(n);

s: =0;

for i: =1 to n do

read(a[i]);

for i: =1 to n do

s: =s+a[i];

writeln(s);

end.

 

в этом решении сначала вводится n - количество элементов в массиве затем сам массив и выводится ответ

пример

ввод

8

1 2 3 4 5 6 7 8

вывод

36

 

решение #3

var a: array[1..10] of integer;

s,i: integer;

begin

s: =0;

for i: =1 to 10 do begin

randomize;

a[i]: =random(2001)-1000

write(a[i],' ');

end;

for i: =1 to 10 do

s: =s+a[i];

writeln;

writeln(s);

end.

 

в этом решении программа сама генерирует массив из 10 чисел в который входят числа от -1000 до 1000

пример

ввод

 

вывод

0 5 851 -1000 999 515 66 -786 -55 545

1140

 

вопросы, недочеты в лс

 

 

Алёнаум1
Алёнаум1
4,5(87 оценок)

uses crt; var i,count: integer; a: array[1..20] of integer; beginrandomize; count: =0; for i: =1 to 20 do a[i]: =random(6)+1; for i: =1 to 20 do begincount: =count+a[i]; write(a[i],' '); end;

writeln; writeln(' count = ', count); readln;

end.

0987123456530
0987123456530
4,8(57 оценок)

скорость равна прохождению чего-то за определённое время, то есть:

v = m / t

где m - масса (размер) файла. выразим отсюда массу файла (домножив оба выражения на t):

vt = m

нам нужен ответ в кбайт, поэтому переведём сразу. чтобы из бит получить кбайт, нужно разделить число сначала на 8 (чтобы получить байт), а затем на 1024 (чтобы получить кбайт):

256000 / 8 / 1024 = 31.25 кбайт. подставим в формулу.

31.25 · 51 = 1 594 кбайт.

Популярно: Информатика