1) program n_1; var a:array[1..10] of integer; i, n, k, s:integer; begin writeln('Введите кол-во элементов'); readln(n); k:=0; for i:=1 to n do begin a[i]:=random(20)+10; writeln(a[i],' '); if (i mod 2=0) then s:=s+a[i]; If (i mod 2<>0) then k:=k+1; end; writeln('Сумма=',s); writeln('Кол-во нечётных элементов=',k); end. 2) program kol_vo_elementov; var a:array[1..10] of integer; i, n, k, s:integer; begin writeln('Введите кол-во элементов'); readln(n); k:=0; for i:=1 to n do begin a[i]:=random(9)+1; writeln(a[i],' '); if (i mod 2=0) then k:=k+1; end; writeln('Кол-во чётных элементов=',k); end.
Видеофайлы, могут быть: avi, wmf, 3gp, mp4, mpg2.
Фотографии и рисунки, определяются с таких расширений: jpg, bmp, gif, tiff, png.
Тексты и документы: txt, doc, rtf, docx.
Файлы, где записаны данные для расчётов в виде электронных таблиц имеют расширение - xls, xlsx, xlsm, ods.
Для музыки характерно расширение: mp3, wma.
Программы запускают файлы, имеющие расширение exe, cmd, bat, их ещё, называют исполнительными.
А вот если вам друг передал, к примеру, целый набор файлов виде архива, то такой файл будет иметь разрешение rar, zip, tg.