Во-первых, электронная почта является очень удобной, учитывая скорость передачи сообщений. Отправляя письмо в любую точку планеты с любого места расположения, можно быть уверенным, что сообщение дойдет до своего адресата в течении нескольких секунд. Это есть очень большой плюс, учитывая современный ритм жизни.
Во-вторых, с электронной почты можно отправлять различного типа информацию в разных объемах и размерах. Можно пересылать любые файлы, например, фотографии, музыкальные произведения, текстовые файлы, презентации, видео и другие различные виды информационных сообщений. Главное, чтобы компьютер Ваш и Вашего собеседника поддерживал данные программы.
Третье преимущество заключается в том, что пользоваться электронной почтой невероятно легко и удобно. Это могут делать даже дети. Можно общаться с человеком по ту сторону экрана, не вставая с дивана или стула, не выходя из дома.
{Допустим ,что масив будет вводитса с клавиатуры число символов 10 тип-integer}
program mas;
var m:array [1..10] of integer;
i,o,kp,pp,oo,a,b,s:integer;
begin
writeln ('Vvedit masiv');
for i:=1 to 10 do begin
readln (m[i]); end;
o:=0;
for i:=1 to 10 do begin
if m[i]=0 then o:=o+1; end;
kp:=0
for i:=1 to 10 do begin
if m[i] div 5=5 then kp:=kp+1; end;
pp:=0;
for i:=1 to 5 do begin
pp:=pp+m[i]; end;
oo:=0;
for i:=1 to 10 do begin
if m[i]=0 then oo:=oo+1; end;
writeln ('Vvedit A i B');
readln (a,b);
s:=0;
for i:=a to b do begin
s:=s+m[i]; end;
writeln ('Kolichestvo 0 - ',o);
writeln ('suma kratna 5- ',kp);
writeln ('suma pervix 5- ',pp);
if oo=2 then writeln ('Virno v masivi dva nuli') else
writeln ('V masive ne 2 nuli');
writeln ('suma ot A do B= ',s);
end.
{P.S. я не проверял в Паскале если будут з нею проблемы то обращяйся}
{P.P.S. обрати внимание на разницу о и 0}
>if a[i] < min then min:=a[i];
Program qq;
var a:array[1..5] of integer;
min, i: integer;
begin
writeln('Ââåäèòå ïÿòü ÷èñåë: ');
for i:=1 to 5 do
read(a[i]);
min:=a[1];
for i:=1 to 5 do
if a[i] < min then min:=a[i];
writeln('Минимальный элемент: ', min);
end.