Var a:array[1..1000] of integer; k,s:integer; sr:real; begin write('Введите количество элементов массива n='); readln(n); for i:=1 to n do read(a[i]); writeln; k:=0; s:=0; for i:=1 to n do if a[i] mod 5 = 0 then begin s:=s+a[i]; k:=k+1; end; sr:=s/k; writeln('Среднее арифметическое элементов массива кратных 5 = ',sr); end.
Сегодня нет такой сферы производства и хозяйствования, в которых бы не применялись информационные технологии. С информационных технологий осуществляется успешная деятельность множества компаний, которые занимаются производством той или иной продукции.
Информационные технологии и компьютеризация позволяют усовершенствовать и облегчить производственный процесс, а полная или частичная его автоматизация позволяет облегчить труд, связанный с выполнением опасных для жизни трудовых действий.
Также, информационные технологии применяются для того, чтобы удовлетворять непроизводственные потребности общества.
Так, допустим, сегодня информационные технологии массово применяются в образовании. Они формировать независимую информационную личность, учат принимать правильное решение и эффективно использовать информационные ресурсы. Информационные технологии в образовании подготавливают человека, который легко, оперативно и эффективно обрабатывать данные и применять компьютерные возможности на практике.
В туризме, допустим, информационные технологии применяются с целью облегчить процесс формирования тура и организации отдыха. С информационных технологий туроператор может легко и быстро наладить коммуникационные связи с объектами, которые, непосредственно, принимают участие в создании отличных условий отдыха. Также, с информационных технологий и техники появляется у человека возможность интернет-бронирования авиабилетов и многое другое.
В сфере производства информационные технологии применяются с целью не только облегчить труд работников и уменьшить их численность, а и позволяют осуществлять процесс производства быстрее, производя большие объемы продукции.
Сегодня информационные технологии позволяют решать много проблем и предоставляют возможность сделать мир современнее, лучше, удобнее и комфортнее.
Const n=13; var a:array[1..n] of integer; i,k,t:integer; begin Randomize; Writeln('Исходный массив'); for i:=1 to n do begin a[i]:=Random(21)-10; Write(a[i],' ') end; Writeln; { начало собственно программы } i:=1; k:=0; while (i<=n) and (k=0) do begin if a[i]=0 then k:=i; i:=i+1 end; if k>0 then begin for i:=k to n-1 do a[i]:=a[i+1]; Writeln('Массив-результат'); for i:=1 to n-1 do Write(a[i],' '); Writeln end else Writeln('В массиве нет нулевых элементов') end.
k,s:integer; sr:real;
begin
write('Введите количество элементов массива n='); readln(n);
for i:=1 to n do read(a[i]);
writeln;
k:=0; s:=0;
for i:=1 to n do
if a[i] mod 5 = 0 then begin
s:=s+a[i]; k:=k+1; end;
sr:=s/k;
writeln('Среднее арифметическое элементов массива кратных 5 = ',sr);
end.