1) Первое задание
Program Test;
const size = 18;
Var a: array[1..size] of integer; i, k: integer;
Begin
Randomize;
i := 1;
k := 0;
while i <= size do
begin
a[i] := Random(0, 29);
i := i + 1;
end;
i := 1;
while i <= size do
begin
if (a[i] > 15) then
k := k + 1;
i := i + 1;
end;
i := 1;
while i <= size do
begin
Writeln(i, ') ', a[i]);
i := i + 1;
end;
Writeln();
Writeln('k = ', k);
End.
2) 2 задание
Program Test;
const size = 18;
Var a: array[1..size] of integer; i, s: integer;
Begin
Randomize;
i := 1;
s := 0;
while i <= size do
begin
a[i] := Random(0, 29);
i := i + 1;
end;
i := 1;
while i <= size do
begin
if (a[i] mod 2 = 0) then
s := s + a[i];
i := i + 1;
end;
i := 1;
while i <= size do
begin
Writeln(i, ') ', a[i]);
i := i + 1;
end;
Writeln();
Writeln('s = ', s);
End.
P.S. На фотографии не видно часть второго задания. Скорее всего там написано, что нужно посчитать сумму элементов массива с четным значением. Такую программу я и писал.
1. Зависит от версии языка. Как размер, так и размерность. Например, в PascalABC.NET и размер и размерность практически ничем не ограничены, а в ТурбоПаскаль массив не мог занимать больше 65520 байт.
2. Одномерный массив - массив имеющий одно измерение, т.е. его элементы имеют один индекс. Никакого вектора в паскале нет.
3. Доступ к элементу массива осуществляется по его порядковому номеру в массиве, названному индексом.
4. Массивы данных в программе на паскале можно формировать путем задания значений элементов непосредестенно при описании, путем ввода значений с клавиатуры или чтения из файла, путем присваивания элементам значения в цикле и т.д.
Ну это же очень простой вопрос! Шина управления!
Длина кода должна быть любая а вот с длиной не так длина должна совпасть с кодами при этом надо учесть силы цифр
