Что означает слова «Информация» в переводе от латинского слова «informatio»? МирсведенияЗнанияМир​

информация в переводе означает сведения

uses crt;

var i,j,k,n,s,s1:integer;
a:array[1..5,1..10] of integer;

begin
randomize;
for i:=1 to 5 do
for j:=1 to 10 do
a[i,j]:=random(10)+1;
for i:=1 to 5 do
begin
writeln(' ');
for j:=1 to 10 do
write(a[i,j], ' ');
end;

 

2-3
uses crt;

var i,j,k,n,s,s1:integer;

b:array[1..10] of integer;
begin
randomize;

//prog 2
for i:=1 to 10 do
begin
b[i]:=random(10)+1;
if i mod 2 =0 then s1:=s1+b[i];
write(b[i],' ');
end;
writeln(' vvedite k and n ');
readln(k,n);
for i:=k to n do s:=s+b[i];
writeln('suma = ',s);
writeln('suma chetnyh ',s1);
readln;
end.

4..

uses crt;

var i:integer;

a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(10)-7;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=10 downto 1 do write(a[i],' ');
readln;
end.

Решение #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

 

Вопросы, недочеты в ЛС