с практичесткой
Запустить PascalABC.NET.2.Выполнить задания. Перед каждым заданием писать название задания, например «Задание 1А», и к каждому действию написать комментарий или пояснение в программе.а)Создать целочисленный одномерный массив A[1..n] (n=10) с элементами, равными своим удвоенным индексам и вывести их на экран. Найти сумму всех элементов массива
.varmas: array[1..10] of integer;
i: integer;
s: real;
begin
writeln('Задание1A');
S:=0;for i:=1 to 10 do begin
mas[i]:=i*2;
writeln('mas[',i,']=',mas[i]);
S:=S+mas[i];
end;
writeln('Сумма всех элементовmas= ',S);
end.б)Создать целочисленный одномерный массив A[1..n] (n=10) с произвольными целыми числами. Найти количество отрицательных, положительных и нулевых элементов в линейном целочис-ленном массиве. в)Вывести на экран все отрицательные элементы линейного целого массива (из задания Б).3.Откомпилировать задания и запустив на выполнение, получить результат. 4.Результаты показать учителю и, при необходимости, сохранить на дискете. 5.Сохранить свой файл (под именем «Pr11»).6.Закрыть PascalABC.NET.Задание 2.(+ )1.Открыть файл с сохраненными решениями предыдущих заданий(под именем «Pr11»).2.Выполнить задания. Перед каждым заданием писать название задания, например «Задание2А», и к каждому действию написать комментарий или пояснение в программе.а)Создать целочисленный одномерный массив A [1..n] (n=10) с произвольными целыми числами.Найти среднее арифметическое всех положительных элементов линейного массива действи-тельных чисел.б)Определить индекс и значение максимального элемента массива(из задания 2А). Результат вы-вести на экран.3.Откомпилировать заданияи запустив на выполнение, получить результат. 4.Результаты показать учителю. 5.Сохранить свой файл (под именем «Pr11»).Задание 3.(+ )1.Открыть файл с сохраненными решениями предыдущих заданий(под именем «Pr11»).2.Выполнить задания. Перед каждым заданием писать название задания, например «Задание3», и к каждому действию написать комментарий или пояснение в программе.Создайте массив из 10 случайных целых чисел (создается с генератора случайных чи-сел). Отобразите его на экране. После чего задайте поиск числа х в полученном массиве и отоб-разите сколько раз встречается это число. 4.Откомпилировать задания и запустив на выполнение, получить результат. 5.Результаты показать учителю.6.Сохранить файл с новыми данными.7.ответить на контрольные во
А вот жёлтый светофильтр используется исключительно при цветной печати. Правда, толку от него при этом немного. Потому что получаемый при такого прибора световой поток настолько мал, что разве что определять своё положение в пространстве. Поэтому раньше, при ручной печати цветных фотографий, фотографы предпочитали работать в полной темноте.
Плёнка, кстати, даже чёрно - белая, при красном фонаре однозначно будет засвечена.
uses crt;
var
x,y,a:real;
label 1,2,3,4;
begin
4:writeln('Выберите что вам нужно: 1-синус числа, 2-косинус числа, 3-выход');
read(a);
if a=1 then
goto 1;
if a=2 then
goto 2;
if a=3 then
goto 3;
1:begin
writeln('Введите "х"');
read(x);
y:=sin(x);
writeln('Синус "х" равен ',y);
writeln('Ещё? 1-No, 2-Yes');
read(a);
if a=2 then goto 4
else goto 3;
end;
2:begin
writeln('Введите "х"');
read(x);
y:=cos(x);
writeln('Косинус "х" равен ',y);
writeln('Ещё? 1-No, 2-Yes');
read(a);
if a=2 then goto 4
else goto 3;
end;
3:writeln('Пока!');
end.
Программа основана на метках, перемещая метки можно переходить к разным местам программы, тем самым использую их как меню... это если я правильно понял что именно значило:"Организовать меню")))