Задание №1 //Pascal const n = 5; var a:array[1..n] of integer; i,s:integer; begin s:=0; //Заполним для теста массив сл. числами, заодно посчитаем сумму //положительных for i:=1 to n do begin a[i]:=random(101)-50; if a[i]>0 then s:=s+a[i]; end; writeln('Сумма положительных ',s); end.
Задание №5 //Pascal const n = 100; var a:array[1..n] of integer; i,m,min:integer; begin write('Введите количество элементов '); read(m); min:=999999; for i:=1 to m do begin readln(a[i]); if a[i]<min then min:=a[i]; end; writeln('Минимальный элемент ',min); end.
Задание №6 //Pascal const n = 5; var a:array[1..n] of integer; i,s:integer; begin s:=0; //Заполним для теста массив сл. числами, заодно посчитаем сумму //количество четных for i:=1 to n do begin a[i]:=random(101)-50; if a[i] mod 2 = 0 then s:=s+1; end; writeln('Количество четных ',s); end.
Задание №7 //Pascal const n = 10; var a:array[1..n] of integer; i,c,s,k :integer; begin s:=0;k:=0; write('Введите число с '); read(c); for i:=1 to n do begin readln(a[i]); if a[i]>c then begin s:=s+a[i]; k:=k+1; end; end; if k<>0 then writeln('Среденее арифметическое больших с ',s/k) else writeln('Таких чисел нет'); end.
Задание №8 //Pascal const n = 10; var a:array[1..n] of integer; i,s,k :integer; begin s:=0;k:=0; for i:=1 to n do begin readln(a[i]); if i mod 2<>0 then begin s:=s+a[i]; k:=k+1; end; end; writeln('Среденее арифметическое с нечетными номерами ',s/k) end.
Задание №9 //Pascal const n = 10; var a,b:array[1..n] of integer; i,s,k :integer; begin s:=0;k:=0; for i:=1 to n do begin readln(a[i]); if a[i]>0 then begin k:=k+1; b[k]:=a[i]; end; end; //Для проверки выведем массив b if k>0 then for i:=1 to k do write(b[i],' ') else writeln('Положительных в массиве a не оказалось'); end.
Шаг 1. Узнаёшь коды символов по таблице нужной кодировки (ну или слентяйничать, как я) Шаг 2. Перевести все коды из в калькулятором... Или нет х) Шаг 3. Записать всё по порядку. Если кодировка однобайтная, как сейчас, то можно хоть подряд... 4D 79 20 68 61 70 70 79 20 45 6E 67 6C 69 73 68