1. Упорядоченное множество однотипных данных, имеющих общее имя и различающихся номерами, называют…
a. Массивом
b. Последовательностью
c. Структурированием
d. Множеством
2. Дан одномерный массив.
-125 200 10 0 43 11
Какой номер (индекс) у элемента массива, значение которого 0.
3. var a: array [1..59] of real; Здесь описан массив a из … вещественных чисел.
a. 50
b. 58
c. 59
d. 60
4. Выберите правильное описание массива А, состоящего из нескольких переменных целого типа ...
a. A : array [1..25] of integer;
b. A : array [1..25] of byte;
c. A : [1..25] of integer;
d. A : array [1..25] of real;
5. Выберите правильные варианты вывода элементов массива на печать в строку.
a. for i:=1 to n do writeln (a[i]);
b. for i:=1 to n do write (`a[`, i, `]=`);
c. for i:=1 to n do write (a[i], ` ` );
d. for i:=1 to n do write (`a`, i, `=`, a[i]);
Задание 1. Ввести с клавиатуры массив из 5 вещественных чисел и вывести его на экран в столбик.
Задание 2. Заполните массив первыми N натуральными числами, начиная с X (значение X введите с клавиатуры). Например, заполнить массив 6 натуральными числами, начиная с 11.
На экране (вывод)
A[1]=11
A[2]=12
A[3]=13
A[4]=14
A[5]=15
A[6]=16
Более удобный, компактный и требующий меньше памяти код, чем у предыдущего ответа.
Пояснение:
1) вводятся два числа и забиваются в значения a и b соответственно.
2)при команды else производится отбор. Если а больше b, то идет запись, если нет, то идет другое else, где если a меньше b, то идет запись их. В конечном случае, если не выполняется ни то, ни то, то просто выводится, что они равны, т.к больше нет никаких вариантов.
Код:
Program school6;
var a,b:real;
begin
write ('Введите первое число:');
readln(a);
write ('Введите второе число:');
readln(b);
if a>b then
write ('Первое число больше второго на ', a-b)
Else
If a<b then
write ('Второе число больше первого на ', b-a)
Else Write('числа равны');
end.
1)
var i, sum: integer;
begin
sum:= 0;
for i:= 1 to 100 do sum:= sum + i;
write(sum);
end.
2)
var i, sum: integer;
begin
sum:= 0;
for i:= 11 to 50 do sum:= sum + i * sqr(i);
write(sum);
end.
3)
var i, sum: integer;
begin
sum:= 0;
for i:= 10 to 99 do if i mod 2 = 1 then sum:= sum + i;
write(sum);
end.
4)
var i, sum: integer;
begin
sum:= 0;
for i:= 50 to 90 do sum:= sum + sqr(i);
write(sum);
end.
5)
var i, sum: integer;
begin
sum:= 0;
for i:= 10 to 99 do if i mod 2 = 0 then sum:= sum + i;
write(sum);
end.