Через сеть, интернет, проводп
1)
var
a:array[1..10] of integer;
i:integer;
begin randomize;
for i:=1 to 10 do a[i]:=random(100)-40;
writeln;i:=1;
while i<=10 do begin
if a[i]<0 then begin a[i]:=0;
i:=11;end;
inc(i);
end;
for i:=1 to 10 do write(a[i]:3);
<span>end.
2)
var a:array[1..10] of integer;
i:integer;
begin
for i:= i to 10 do read(a[i]);
</span>for i:= i to 10 do<span>
if a[i] mod 3 =0 then a[i]:=a[i]*3;
</span>for i:= i to 10 do write(a[i]);
end.
A=1+2=3
b=3+3+2=8
if((a-13)%10==0)
Виды информации:
1. Текстовая - представленная на каком-либо из существующих языков, например, book - английский язык.
2. Числовая - представленная в виде цифр, например, 1,2,3...
3. Графическая - картины, фотографии, чертежи, схемы и т. д.
4. Звуковая - все, что слышит человек, например, человеческая речь, музыка, пение птиц.
<span>5. Видеоинформация - последовательность изображений, например, фильмы, мультфильмы.</span>