По Информатике нужно. Если у вас есть компьютер, то попробуйте выполнить данные задания на компьютее по шагам, если нет, то внимательно изучите материал. Откройте учебник на стр. 36, выполните задания 1
Задание 1. Настройка панели задач. Установить, затем удалить с панели задач значок программы Paint.
1. Выполните в главном меню путь Все программы - Стан- дартные – Paint.
2. Найдите в Панели задач кнопку Щелкните правой кнопкой мыши значок программы в панели задач, чтобы открыть список переходов программы.
3. Выберите команду Закрепить программу в панели задач.
4. Закройте окно графического редактора. Убедитесь, что значок программы расположен в Панели задач.
5. Щелкните и удерживайте левую кнопку мыши на кнопке Проверьте, что вместо эскиза программы появляется пояснение с названием программы.
6. Откройте окно графического редактора, используя имею- щийся значок в Панели задач. Выберите кнопку Свернуть, расположенную в правом верхнем углу окна программы. Какое действие нужно выполнить, чтобы в Панели задач появился эскиз окна графического редактора?
7. Выполните команду Изъять программу из панели задач контекстного меню кнопки . Закройте окно редактора. Обратите внимание на то, что значок графического редак- тора Paint исчез из Панели задач.
На этот раз вроде бы и не торопился, все просмотрел (но наверняка, как всегда что-нибудь просмотрел)))), и кажется мне, что "школьное" решение уважаемого Эникея не удовлетворяет поставленной задаче (боюсь, что опять придется извиняться, но все же рискну). Из массива не удалены все отрицательные элементы. Их не видно, потому что распечатывается не весь массив. На первом скане видно, что при вводе массива (-1,-2,3,4,-5) элементы 4 и -5 остались на своих местах, просто они не выводятся на печать. Вот поэтому я считаю, что это решение некорректно, поставленная задача не выполнена. Свой вариант решения привожу на втором скане.
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadArrInteger('Вводите',ReadInteger('n=')); a:=a.Where(x->x>=0).ToArray; a.Println end.
Пример n= 5 Вводите 3 -2 0 -1 5 8 3 0 5
То же, в терминах Pascal ABC ("по-школьному")
const k=50; var n,i,m:integer; a,t:array[1..k] of integer; begin Write('n='); Read(n); Write('Вводите: '); for i:=1 to n do Read(a[i]); m:=0; for i:=1 to n do if a[i]>=0 then begin m:=m+1; t[m]:=a[i] end; n:=m; for i:=1 to n do begin a[i]:=t[i]; Write(a[i],' ') end; Writeln end.
Думаю, есть о чем подумать: почему в школе учат писать длинно и сложно?
Из массива не удалены все отрицательные элементы. Их не видно, потому что распечатывается не весь массив. На первом скане видно, что при вводе массива (-1,-2,3,4,-5) элементы 4 и -5 остались на своих местах, просто они не выводятся на печать. Вот поэтому я считаю, что это решение некорректно, поставленная задача не выполнена.
Свой вариант решения привожу на втором скане.