//pascal abc.net v3.0 сборка 1111 var i,a,b: integer; ar: array[1..10] of integer; procedure odddec(var a,b: integer); //подпрограмме переданы аргументы a и b //процедура для вычитания в нечётном элементе begin; a: =a-b; end; procedure notoddinc(var a,b: integer); //подпрограмме переданы аргументы a и b //процедура для сложения в чётном элементе begin; a: =a+b; end; begin randomize; readln(a); //ввод a readln(b); //ввод b writeln('array: '); for i: =1 to 10 do //весь массив begin; ar[i]: =random(-20,80); //случайные числа от -20 до 80 включительно write(ar[i]: 4); //вывод if odd(i) then odddec(ar[i],b) else notoddinc(ar[i],a); {если нечётное, то первая процедура, иначе вторая. обращаю внимания на то, что элементы меняются сразу после вывода} end; writeln; writeln('final array: '); //вывод получившегося массива for i: =1 to 10 do write(ar[i]: 4); end. пример ввода: 20 10 пример вывода: array: 10 16 0 60 23 4 22 -20 4 55 final array: 0 36 -10 80 13 24 12 0 -6 75
Середа-Сергеенков980
01.09.2022
//pascal abc.net v3.0 сборка 1111 begin var d: =readlnstring('вас программа, которая может делить '+'два числа с остатком. напишите, , свое имя'); writeln(', ',d,'! '); repeat writeln('как нужно написать ответ? ',#13#10,'1 вариант. 5: 3 = 1(ост.2)',#13#10,'2 вариант. 5 = 3*1 + 2',#13#10,'0 - завершить работу'); var c: char; repeat c: =readlnchar('введите 0, 1 или 2: '); case c of '0': exit; '1','2': break; end; until false; var a,b: biginteger; if not biginteger.tryparse(readlnstring('введите целочисленное делимое: '),a) then begin writeln('вы ввели неверное значение. работа завершена'); exit end; if not biginteger.tryparse(readlnstring('введите целочисленный делитель: '),b) then begin writeln('вы ввели неверное значение. работа завершена'); exit end; if integer(b)=0 then { к типу integer. менее абстрактно, чем biginteger} begin writeln('вы ввели неверное значение.'); exit end; if c='1' then writelnformat('{0}: {1}={2}(ост.{3})',a,b,a div b,a mod b) else writelnformat('{0}={1}*{2}+{3}',a,b,a div b,a mod b); var f: char; repeat f: =readlnchar('если вы хотите завершить работу, введите "0", если продолжить - любую букву.'); case f of '0': exit; else break; end; until false; until false end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дано описание массива mas: array [-2..12] of integer.сколько элементов содержит данный массив?