//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var arr := ArrRandomInteger(13, -10, 10);
Println(arr);
WritelnFormat('Минимальный элемент: A[{0}] = {1}', arr.IndexMin(), arr.Min());
end.
s=15; i=-1
Объяснение:Присваиваем переменной s значение 0, а переменной i - 5:
s:=0; i:=5;
Создаём цикл, который будет выполнятся пока будет выполнятся условие i>=0 , то есть пока i будет меньше или равна нулю, будут выполнятся команды, записанные между begin и end :
while i>=0 do
begin
Присваиваем переменной s новое значение: текущее s + i.
s:=s+i;
Присваиваем переменной i новое значение: текущее значение i - 1.
i:=i-1
Теперь i стала на 1 меньше, изначально она равнялась пяти, но с каждым проходом цикла она уменьшается на 1, то есть через 6 кругов она станет меньше 0 и цикл завершится. За эти 6 кругов будет увеличиваться s, на i, то есть за весь цикл она увеличится на 5+4+3+2+1+0, то есть 15. изначально s=0, поэтому по завершении программы она станет равна 0+15=15, а i -1.
end;
1. картинка
2. палка
Объяснение:
1.
Общий порядок действий:
1) скобки
2) НЕ
3) И
4) ИЛИ
2.
(Первая буква слова согласная ИЛИ Вторая буква слова гласная) И Последняя буква гласная
Логическая операция И истинна тогда, когда истинны оба исходных высказываний
Проверим, сначала, вторую часть высказывания: Последняя буква гласная
1) ирис - ложь(с согласная буква)
2) палка - истина (а гласная буква)
3) словарь - ложь(ь не гласная буква)
1 и 3 слово отпали
Проверим первую часть высказывания: Первая буква слова согласная ИЛИ Вторая буква слова гласная
Логическая операция ИЛИ истинна тогда, когда истинно любое из исходных высказываний
2) палка - истина (п согласная буква - истина)
вторую часть можно не проверять, т.к. высказывание уже истинно
//PascalABC.NET v3.3 1633
var arr: array [1..13] of integer;
begin
for var i:=1 to 13 do
arr[i]:=random(-10,10);
arr.PrintLn(', ');
writeln('Минимальный элемент: '+arr.Min());
write('Его индекс(ы): ');
for var i:=1 to 13 do
if arr[i]=arr.Min() then write(i+' ');
end.