Sketch Up программасында модельдерді қалай құрастырады
Ответы
program actors;
var
i: integer;
mas: array [1..10] of integer;
begin
for i := 1 to 10 do
begin
read(mas[i]);
end;
for i := 1 to 10 do
begin
if (mas[i] >= 9) and (mas[i] <= 11) then
writeln('Элемент: ', i, ' Значение: ', mas[i]);
end;
end.
Объяснение:
program actors; // Название программы
var
i: integer; // Целочисленная переменная счетчик для массива
mas: array [1..10] of integer; // Целочисленный массив с 10-ю элементами
begin // Начало программы
for i := 1 to 10 do // Идем с первого по десятый индексы
begin // Начало цикла
read(mas[i]); // Считываем значение с клавиатуры
end; // Конец цикла
for i := 1 to 10 do // Идем с первого по десятый индексы
begin // Начало цикла
if (mas[i] >= 9) and (mas[i] <= 11) then // Если значение элемента массива mas с индексом i ≤ 11 И ≥ 9, тогда
writeln('Элемент: ', i, ' Значение: ', mas[i]); // Выводим индекс и значение элемента
end; // Конец цикла
end. // Конец программы
program actors;
var
i: integer;
mas: array [1..10] of integer;
begin
for i := 1 to 10 do
begin
read(mas[i]);
end;
for i := 1 to 10 do
begin
if (mas[i] >= 9) and (mas[i] <= 11) then
writeln('Элемент: ', i, ' Значение: ', mas[i]);
end;
end.
Объяснение:
program actors; // Название программы
var
i: integer; // Целочисленная переменная счетчик для массива
mas: array [1..10] of integer; // Целочисленный массив с 10-ю элементами
begin // Начало программы
for i := 1 to 10 do // Идем с первого по десятый индексы
begin // Начало цикла
read(mas[i]); // Считываем значение с клавиатуры
end; // Конец цикла
for i := 1 to 10 do // Идем с первого по десятый индексы
begin // Начало цикла
if (mas[i] >= 9) and (mas[i] <= 11) then // Если значение элемента массива mas с индексом i ≤ 11 И ≥ 9, тогда
writeln('Элемент: ', i, ' Значение: ', mas[i]); // Выводим индекс и значение элемента
end; // Конец цикла
end. // Конец программы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Используя эту трассировку сделать алгоритм: число х=4 интервал от 1 до
Решить карточку. С 6 до 8
Перечислите аппаратные средства необходимые для работы компьютерных сетей
Решение из десятичной системы счислентя в восьмиричную 421
Что более всего влияет на цену компьютера
Panorama, Pull-Extrude, тіктөртбұрыш, шеңбер, сектор сияқты заттарды қолданыңыз.