Ответ:
Задача простая, если на обыкновенном паскале то вот.
В комментариях ошибка, перевод из рад. в градусы на 14 строке.
Технология ( урок) по другому труд
Ответ:
Объяснение:
1) книга;дети;печатный текст
2) компьютер; мальчик; эл. Текст
3)воспитательница/учитель; дети; слух
4) мальчик; холст; графический
Var
k:integer;
begin
for k:=1 to 20 do begin
writeln('Привет',' ');
end;
for k:=1 to 20 do begin
write('Привет',' ');
end;
end.
При первом проходе программы
m=0
в цикле for сравниваем Если элемент массива под номером 1 (т.е. число 2) минус 2*m>1 то m равна текущему элементу массива.
т.к. 2-2*0=2 и это больше 0 то значение m становится равным 2
1 проход m=2
При втором проходе цикла фор сравниваем уже второй элемент массива, т.е.
Dat[2]-2*m>1
6-2*2>1
2>1
Условие выполняется значит значение m на 2 проходе равно 6
при дальнейших проходах цикла for мы больше не получим значений больше 1 т.к. текущее m=6, т.е. из элементов массива мы будем вычитать 12, т.е. ни одного положительного числа мы не получим, т.е. условие if не выполнится ни разу и значение m не изменится
Ответ m=6