1. що таке таблична величина?

2. із чого складається ім’я елемента табличної величини?

3. як оголошується змінна таблична величина в рядку var?

4. чим відрізняться елемент memo в середовищі lazarus від елементів іння label, edit?

5. які елементи іння в середовищі lazarus можна використати для введення і виведення елементів масиву?

запишіть відповіді на питання в програмі блокнот або msword і прикріпіть до дз.

увага! і завдання виконуються українською мовою.

0

Объяснение:

а = 6

b = 7

если a >= b то X = (25 mod 3 div 2) + (170 div 10 mod 3)

иначе X = (25 div 4 mod 2) + (250 div 10 mod 5)

6 >= 7 (НЕТ)   -   рассматриваем значение x после иначе

X = (25 div 4 mod 2) + (250 div 10 mod 5) = (6 mod 2) + (25 mod 5) = 0 + 0 = 0

div - целочисленное деление

mod - остаток от целочисленного деления

1 / 2 = 0,5 = 0 целых и 1 в остатке

2 / 2 = 1 = 1 целых и 0 в остатке

3 / 2 = 1,5 = 1 целых и 1 в остатке

1 div 2 = 0

2 div 2 = 1

3 div 2 = 1

1 mod 2 = 1

2 mod 2 = 0

3 mod 2 = 1

Не совсем верно, но очень близко.

uses crt;

const nmax=100;

var a:array[1..nmax] of integer;

n,i,j,k:byte;

begin

clrscr;

repeat

write('Размер массива до ',nmax,' n=');

readln(n);

until n in [1..nmax];

writeln('Введите элементы массива:');

for i:=1 to n do

begin

write('a[',i,']=');

readln(a[i]);

end;

clrscr;

writeln('Массив:');

for i:=1 to n do

write(a[i]:4);

writeln;

writeln;

k:=0;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[j]=a[i] then k:=k+1;

if k=1 then write('В массиве только 2 одинаковых элемента')

else write('В массиве не 2 одинаковых элемента');

readln

end.

Объяснение: