1. Алгоритмическая конструкция, в которой, в зависимости от результата проверки условия («да» или «нет»), предусмотрен выбор одной из двух последовательностей действий: а)цикл б)следование в)ветвление 2. Условный оператор организовывает: а)неполное ветвление б) вложенный цикл в)цикл с параметром г)цикл с условием 3. Алгоритм называется разветвляющимся, если: а)действия выполняются последовательно друг за другом б)некоторая последовательность действий повторяется многократно в)существует условие выбора для выполнения действий г)выполняется ранее разработанный алгоритм 4. В полном ветвлении существуют действия а)только в ветке «Да» б)в ветке «Да» и ветке «Нет» только в ветке в)«Нет» 5. В неполном ветвлении существуют действия: а)только в ветке «Да» б)в ветке «Да» и ветке «Нет» г)только в ветке «Нет» 6. В результате выполнения фрагмента программы: а)а:=5; б)b:=20; в)а:=а-b/2; г)если а>b то д)с:=а+b е)иначе ж)с:=b-а; з)все переменная с примет значение: а)25 б)14, 5 в) -15 г решите, тот красавчик или красавица
Ответы
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ArrGen(8,i->Ln(i+1.1)); x.Println;
var k:=x.Where(t->(Sin(t)>-0.5) and (Sin(t)<=0)).Count;
var im:=x.IndexMin;
Writeln('На указанном интервале найдено элементов: ',k);
Writeln('Минимальный элемент массива, равный ',x[im],
' имеет порядковый номер ',im+1)
end.
Результат
0.0953101798043249 0.741937344729377 1.1314021114911 1.41098697371026 1.62924053973028 1.80828877117927 1.96009478404727 2.09186406167839
На указанном интервале найдено элементов: 0
Минимальный элемент массива, равный 0.0953101798043249 имеет порядковый номер 1
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ArrGen(8,i->Ln(i+1.1)); x.Println;
var k:=x.Where(t->(Sin(t)>-0.5) and (Sin(t)<=0)).Count;
var im:=x.IndexMin;
Writeln('На указанном интервале найдено элементов: ',k);
Writeln('Минимальный элемент массива, равный ',x[im],
' имеет порядковый номер ',im+1)
end.
Результат
0.0953101798043249 0.741937344729377 1.1314021114911 1.41098697371026 1.62924053973028 1.80828877117927 1.96009478404727 2.09186406167839
На указанном интервале найдено элементов: 0
Минимальный элемент массива, равный 0.0953101798043249 имеет порядковый номер 1
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
var
A: array [1..5] of integer;
min, max, minInd, MaxInd: integer;
i: byte;
begin
writeln('Заполнение массива.');
for i := 1 to 5 do
begin
write('А[', i, '] = '); readln(A[i]);
end;
writeln;
Max := A[1]; Min := A[1];
for i := 1 to 5 do
begin
if Max < A[i] then begin Max := A[i]; MaxInd := i; end;
if Min > A[i] then begin Min := A[i]; MinInd := i; end;
end;
writeln('Номер минимального элемента = ', MinInd);
writeln('Номера минимального и максимального = ', MinInd, ' и ',MaxInd);
end.