sbelova
?>

Дано описание массива mas: array [-2..12] of integer.сколько элементов содержит данный массив?

Информатика

Ответы

ALLA1868
Массив содержит )+1=15 элементов.
Sergei
//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
//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.сколько элементов содержит данный массив?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ИванМолчанов
Ермакова Ирина674
Васенкова204
vitalina3012
mmoskow3
al2nik2ol
jstepanova
alex07071
Окунева-Мотова
vladimirkirv
Lorvi_Shevkunova849
marvindkc
kabinet17
Юрьевна174
Присакарь520