Program prog1; Uses crt; var a: array [1..50] of integer; k, i: integer; begin clrscr; randomize; for i:=1 to 50 do begin a[i]:= random(41); write(a[i],' '); if a[i]=23 then inc(k); end; writeln;writeln; writeln('k = ',k); end.
Program prog2; Uses crt; var a: array [1..50] of integer; i: integer; begin clrscr; randomize; for i:=1 to 50 do begin a[i]:= random(41); write(a[i],' '); if (a[i] mod 5) =0 then a[i]:=-1; end; writeln;writeln; for i:=1 to 50 do write(a[i],' '); end.
Program prog3; Uses crt; var a: array [1..10] of integer; tmp, i: integer; begin clrscr; randomize; for i:=1 to 10 do begin a[i]:= random(41); write(a[i],' '); end; tmp:=a[2]; a[2]:=a[9]; a[9]:=tmp; writeln;writeln; for i:=1 to 10 do write(a[i],' '); end.
Program prog4; Uses crt; var a: array [1..100] of integer; n, i,k: integer; begin clrscr; randomize; write('N = '); readln(n); for i:=1 to n do begin a[i]:= random(41); write(a[i],' '); end; writeln;writeln; for i:=1 to n-1 do if ((a[i] mod 10)=2)and((a[i+1] mod 10)=2) then inc(k); writeln('k = ', k); end.
10 REM создание массива А для заполнения списком из 10 чисел 20 DIM A (1,10): 30 REM начало цикла для заполнения массива 40 FOR I=1 TO 10 50 REM формирование запроса на ввод I-го числа 60 PRINT “Введите”, I, “-ое число” 70 REM ввод I-го числа 80 INPUT J 90 REM присвоение I-му элементу массива значения числа 100 A(I)=J 110 NEXT I 120 REM цикл сортировки списка чисел по возрастанию 130 FOR I =1 TO 9 140 FOR J=I+1 TO 10 150 REM условие для упорядочения списка 160 IF A(I)>A(J) THEN b=A(I):A(I)=A(J):A(J)=b 170 NEXT J, I 180 REM цикл вывода упорядоченного списка на экран 190 FOR I=1 TO 10 200 PRINT А(I) 210 NEXT I Работа основного алгоритма (130-170 шаги программы) проверена на визуал бейсике. Работает!
Объяснение:
Дано:
а=4;
b=2;
с=6
Формула:
а=(а/b)*c
Подставляем значения:
а=(4:2)х6
а=2х6
а=12
Функция выводит число, то есть, в данном случае, просто 12.
Сделай мой ответ лучшим