Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 50 и вычисляет среднее арифметическое элементов с чётными значениями элементов массива.

Begin writeln("данный массив: "); for i: =1 to 10 do begin a[i]: =random(50)+1; writeln(a[i]," "); if (i mod 2 = 0) then begin sr: =sr+a[i]; k: =k+1; end; end; sr: =sr/k; writeln("среднее арифметическое элементов с четными значениями = ",sr); end.

Var a: array[1..10] of integer; avg,sum,i: integer; begin for i: =1 to 10 do  a[i]: =rand(50); for i: =1 to 10 do  begin if a[i] mod 2 = 0 then sum: =sum+a[i]; end; avg: =sum/10; write(avg); end.

Uses crt; var s,p: string; i,k,min,max,x,y: integer; begin clrscr; write('input string: '); readln(s); min: =length(s); for i: =1 to length(s) do if not(s[i]=' ') and not(i=length(s)) then p: =p+s[i] else{выделяем слова} begin if i=length(s) then p: =p+s[i]; if length(p)> max then begin max: =length(p); x: =pos(p,s); {находим самое длинное слово и его позицию} end; if length(p) begin min: =length(p); y: =pos(p,s); {находим самое короткое слово и его позицию} end; p: =''; inc(k); end; writeln('words: ',k); {вывод кол-ва слов} writeln('long: ',x,' short: ',y); readln; end.

Знак  это родовое понятие. тоесть общее имя букв и цифр и других знаков которые служат для представления информации на носителе пи ктограмма  —  элемент графического интерфейса  пользователя; небольшое растровое изображение на видеоэкране,  служащее для идентификации некоторого объекта: файла, программы и  т. символ  – это условный знак, который раскрывает смысл понятия, идеи, явления или события. знаковая система  — это  система  однообразно интерпретируемых и  трактуемых сообщений/сигналов, которыми можно обмениваться в  процессе общения кодирование информации  — процесс преобразования сигнала из формы, удобной для непосредственного использования информации, в форму, удобную для передачи, хранения или автоматической переработки