var a: array[1..MAX_SIZE] of integer; i, size: integer;
procedure delete_odd_elements(); var i, j: integer; begin i := 1; repeat if odd(a[i]) then begin dec(size); for j := i to size do a[j] := a[j + 1] end else inc(i); until i > size; end;
begin writeln('Исходный массив: '); size := MAX_SIZE; for i := 1 to size do begin a[i] := random(100); write(a[i] : 3); end; delete_odd_elements; writeln; writeln('Полученный массив: '); for i := 1 to size do write(a[i] : 3); end.
1)var n:longint; begin readln(n); if n mod 5=0 then writeln('Число N является кратным чилслу 5')else writeln('Чило N не является кратным числу 5' ); end. 2) var a,b,c:longint: begin readln(a,b,c); if (a+b)div 2=c then writeln('Число C является средним арефметическим чисел A и B') else writeln(' Число C является средним арефметическим чисел A и B') else writeln('Число C не является средним арефметическим чисел A и B '); end. 3) var a:longint; begin write('Сколько вам лет?'); readln(a); if a<14 then write('Вам еще рано получать паспорт?') else write('Поздравляю! Вы гражданин России!'); end. 4) var a:extended; begin readln(a); if (a>36)and(a<37) then writeln('Вы здоровы') else writeln('Вы больны'); end.
в данной ситуации нужно использовать инструмент "масштаб".
он изображён в виде лупы