1 0 (s:=1 => s теперь равно 1; k:=0 => k теперь равно 0)
1 4 (входим в цикл while. По его условию, пока k меньше 13, будем повторять две следующие строчки. S получает значение s+2*k. Сейчас k=0, а s=1, поэтому s=1+2*0=1. k получает значение k+4. Теперь k=0+4=4. 4<13, поэтому входим в цикл ещё раз)
9 8 (Теперь s=1(предыдущее s)+2*4=9. k=k+4=4+4=8. 8<13 => входим в цикл ещё раз)
25 12 (s=s+2*k=9+2*8=25; k=k+4=8+4=12; 12<13 => входим в цикл ещё раз)
49 16 (s=s+2*k=25+2*12=49; k=12+4=16; 16>13 => выходим из цикла)
——————————————
Цикл завершён, а т. к. далее нет строчек, содержащих «s:=» или «k:=», значения s и k больше не меняются.
строчка «write(s+k)» означает выведение на экран суммы s и k. Значит, на экран будет выведена сумма чисел 49 и 16 (последних s и k) — 65.
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var b: array of real; i, n,pn: integer; ps,op,min:real; begin write('Количество элементов массива :');readln(n); SetLength(b, n); // задаем длину массива min:=MaxReal; op:=1; writeln('Исходный массив:'); for i:=0 to n-1 do begin repeat write('Введите ',i+1,' число из ',n,' : ');readln(b[i]); until (b[i]<=5) and (b[i]>=-20); if (b[i]>0) and (round(b[i]/2)*2=b[i]) then begin ps +=b[i];pn+=1; end else if b[i]<0 then op *=b[i]; if b[i]<min then min:=b[i]; end; writeln; writeln('сумма положительных и четных элементов массива :',ps:0:3); writeln('Среднее положительных и четных элементов массива :',ps/pn:0:3); writeln('Произведение отрицательных элементов массива :',op:0:3); writeln('Минимальный элемент массива :',min); writeln('Отсортированный массив по убыванию :'); b.sorteddescending.println; end.
Тестовое решение: Количество элементов массива :8 Исходный массив: Введите 1 число из 8 : -18.5 Введите 2 число из 8 : 3.4 Введите 3 число из 8 : 4 Введите 4 число из 8 : -12 Введите 5 число из 8 : 2.2 Введите 6 число из 8 : -6.3 Введите 7 число из 8 : 2 Введите 8 число из 8 : 5
сумма положительных и четных элементов массива :6.000 Среднее положительных и четных элементов массива :3.000 Произведение отрицательных элементов массива :-1398.600 Минимальный элемент массива :-18.5 Отсортированный массив по убыванию : 5 4 3.4 2.2 2 -6.3 -12 -18.5
Задание №2 //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a: array of integer; i,n ,max,h,k: integer; begin write('Количество элементов массива :');readln(n); write('Число H :');readln(h); write('Число K :');readln(k); SetLength(a, n); // задаем длину массива max:=-MaxInt; writeln('Исходный массив:'); for i:=0 to n-1 do repeat write('Введите ',i+1,' число из ',n,' : ');readln(a[i]); if a[i]>max then max:=a[i]; until (a[i]<=7) and (a[i]>=-12); for i:=0 to n-1 do begin if (a[i]>h) and (a[i]mod k=0) then writeln('Число ', a[i],' больше ',h,' и кратно ',k); end; writeln('Максимальный элемент массива :',max); writeln('Отсортированный массив по возрастанию :'); a.sorted.println; end.
Тестовое решение: Количество элементов массива :8 Число H :-8 Число K :2 Исходный массив: Введите 1 число из 8 : -10 Введите 2 число из 8 : 6 Введите 3 число из 8 : -4 Введите 4 число из 8 : 3 Введите 5 число из 8 : 1 Введите 6 число из 8 : -1 Введите 7 число из 8 : -12 Введите 8 число из 8 : 4 Число 6 больше -8 и кратно 2 Число -4 больше -8 и кратно 2 Число 4 больше -8 и кратно 2 Максимальный элемент массива :6 Отсортированный массив по возрастанию : -12 -10 -4 -1 1 3 4 6
S K
1 0 (s:=1 => s теперь равно 1; k:=0 => k теперь равно 0)
1 4 (входим в цикл while. По его условию, пока k меньше 13, будем повторять две следующие строчки. S получает значение s+2*k. Сейчас k=0, а s=1, поэтому s=1+2*0=1. k получает значение k+4. Теперь k=0+4=4. 4<13, поэтому входим в цикл ещё раз)
9 8 (Теперь s=1(предыдущее s)+2*4=9. k=k+4=4+4=8. 8<13 => входим в цикл ещё раз)
25 12 (s=s+2*k=9+2*8=25; k=k+4=8+4=12; 12<13 => входим в цикл ещё раз)
49 16 (s=s+2*k=25+2*12=49; k=12+4=16; 16>13 => выходим из цикла)
——————————————
Цикл завершён, а т. к. далее нет строчек, содержащих «s:=» или «k:=», значения s и k больше не меняются.
строчка «write(s+k)» означает выведение на экран суммы s и k. Значит, на экран будет выведена сумма чисел 49 и 16 (последних s и k) — 65.
<конец программы>.