Пиши дано и что дано в задачах решение дили
Var m:array [1..10] of integer;
I,s:integer;
Begin
S:=0;
For i:=1 to 10 do
Read(m[i]);
For i:=1 to 10 do
S:=s+m[i];
Write(s);
End.
Var
i:integer;
a,c:array[1..4]of integer;
b:array[1..2]of integer;
begin
write('Массив а: ');
for i:=1 to 4 do
begin
a[i]:=random(10);
if a[i]>b[1] then b[1]:=a[i];
c[i]:=random(10);
if c[i]>b[2] then b[2]:=c[i];
write(a[i],' ');
end;
writeln;
write('Массив c: ');
for i:=1 to 4 do write(c[i],' ');
writeln;
write('Массив b: ');
for i:=1 to 2 do write(b[i],' ');
<span>end.</span>
Например: в школе, это электронные доски, на которых выводится информация для учеников(в современных школах)
коммуникация, в роле сотовых телефонов и т.п. помогает оставатся на связи в трудном положении