DATA 101,98,100,108,97,106,99,100,112,96,107,98 DIM a(1 TO 12) AS INTEGER DIM b(1 TO 12) AS INTEGER, c(1 TO 12) AS INTEGER DIM i AS INTEGER, ib AS INTEGER, ic AS INTEGER CLS ib = 0: ic = 0 FOR i = 1 TO 12 READ a(i) SELECT CASE a(i) CASE 100 ib = ib + 1 b(ib) = i CASE IS > 100 ic = ic + 1 c(ic) = i END SELECT NEXT i
PRINT "План (100%) в месяцах: "; FOR i = 1 TO ib PRINT b(i); NEXT i PRINT PRINT "перевыполнение плана в месяцах "; FOR i = 1 TO ic PRINT c(i); NEXT i END
Результат выполнения программы: План (100%) в месяцах: 3 8 перевыполнение плана в месяцах 1 4 6 9 11
Program z1; uses crt; const n=10; var a: array[1..n] of integer; i, s: integer; begin clrscr; s:=0; writeln('Введите элементы массива'); for i:=1 to n do begin read(a[i]); // ввод элементов в одну строку через пробел if a[i] mod 2 = 1 then inc(s) end; writeln(s); readkey; end.
program z2; uses crt; const n=5; var a: array[1..n] of real; i: integer; s: real; begin clrscr; s:=0; writeln('Введите элементы массива'); for i:=1 to n do begin read(a[i]); // ввод элементов в одну строку через пробел if a[i]>2 then s:=s+sqr(a[i]) end; writeln(s); readkey; end.
program z3; uses crt; const n=5; var a1, a2, a3: array[1..n] of integer; i: integer; begin clrscr; randomize; for i:=1 to n do begin a1[i]:= random(100)+1; // рандомное число от 1 до 100 a2[i]:= random(100)+1; a3[i]:=a1[i]-a2[i]; writeln(a1[i], ' ', a2[i], ' ', a3[i]); end; readkey; end.
program z4; uses crt; const n=10; var a: array[1..n] of integer; max, c, i: integer; begin clrscr; writeln('Введите элементы массива'); for i:=1 to n do read(a[i]); max:=a[i]; for i:=1 to n do begin if max<a[i] then begin max:=a[i]; c:=i end end; writeln(''); writeln('max=', max, ' номер=', c); readkey; end.
