'MS-DOS QBasic 1.0 DIM a(1 TO 20) AS SINGLE, b(1 TO 20) AS SINGLE CLS RANDOMIZE TIMER PRINT "Massiv a" j = 0 FOR i = 1 TO 20 a(i) = 10 * RND - 5 PRINT a(i); IF a(i) > 0 THEN j = j + 1 b(j) = a(i) END IF NEXT i FOR i = 1 TO 20 IF a(i) <= 0 THEN j = j + 1 b(j) = a(i) END IF NEXT i PRINT PRINT "Massiv b" FOR i = 1 TO j PRINT b(i); NEXT i PRINT
1.var a:integer;{объявление переменных} b:real; begin{начало тела программы} write('введите два числа => ');{вывод сообщения пользователю} readln(a,b);{ввод данных пользователем} if (a>5) then {сравнение первого введённого числа с 5} b:=b/2;{если а>5 b приравниваем к b делённое на 2} writeln(b);{выводим b} end.{конец тела программы} 2.var a,b,c,d:integer;{объявление переменных} begin{начало тела программы} write('введите три числа (через пробел) => ');{вывод информации пользователю} read(a,b,c);{ввод инф. пользователем} if (a>=0) then d:=d+1;{если а положительное число счётчик +1} if (b>=0) then d:=d+1;{тоже самое что с верху} if (c>=0) then d:=d+1;{тоже самое что с верху} writeln('количество положительных чисел ',d);{вывод информации} end.{конец тела программы}
