<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
a.Transform(t->t<0?t*20:t); a.Println
end.
<u>Пример</u>
n= 13
-82 6 99 -23 71 -92 50 -70 -82 37 -10 -97 92
-1640 6 99 -460 71 -1840 50 -1400 -1640 37 -200 -1940 92
Заключи то что после if в скобки и будет тебе счастье. И ' ; ' убери после g mod 2 =0.
и в действии перед if в конце поставь ' ; '.
Program Task;
Const pupils = 20; subjects = 10;
Var marks: Array[1..pupils, 1..subjects] of Integer;
marks_average: Array[1..pupils] of Real;
i, j: Integer;
all_marks_average: Real;
Begin For i := 1 To pupils Do
Begin
WriteLn('Введите через пробел оценки ученика №', i);
For j := 1 To subjects Do
Read(marks[i, j]);
End;
For i := 1 To pupils Do
Begin
For j := 1 To subjects Do
marks_average[i] := marks_average[i] + marks[i, j];
marks_average[i] := marks_average[i] / subjects;
End; For i := 1 To pupils Do
all_marks_average := all_marks_average + marks_average[i];
all_marks_average := all_marks_average / pupils;
WriteLn('Результат: ', all_marks_average:2:2);
ReadLn;
<span>End.</span>
1.Размер документа Файл-свойства документа: Формат-Другой размер-там задаёшь ширину высоту в пикселях
2.Направляющие создаются для облегчения рисования или построения фигур.
Направляющие позволяют
установить положение инструментов точно по ним. Использование
направляющих облегчает пользователям выравнивание объектов, создаваемых с
помощью мыши.
Для создания направляющей необходимо поместить указатель мыши на любую
линейку, нажать на левую клавишу мыши и, не отпуская ее, протащить мышь
до нужного места на странице.
Сетка помогает ориентироваться на каком пикселе мы конкретно рисуем,мы понимаем масштаб нашего рисунка,сверху написаны значения координат по Х,сбоку по У
3. .svg .png
4. Сохранить как позволяет сохранить новую копию файла под другим именем или в другом
месте. В этом случае последний сохраненный файл автоматически становится
рабочей копией, таким образом, дальнейшие действия будут выполняться
уже в новом файле. Этой командой обычно пользуются для сохранения разных
версий рисунка.
Сохранить копию позволяет сохранить в любом месте точную копию текущего
SVG-файла под другим именем. В отличие от предыдущей команды, эта копия
хранится отдельно от текущего рабочего файла, даже после сохранения.
Этот способ может быть полезен для создания резервных копий.
5.<span>Правка→История действий и там удаляешь любое количество действий или Ctrl+Z</span>
Программа написана для Pascal
const n=50;
var a:array[1..n] of integer;
i,k:integer;
begin
for i:=1 to n do begin
a[i]:=RANDOM(61)-30;
write(a[i],' ');
end;
k:=0;
for i:=1 to n do
if a[i]>0 then k:=k+1;
writeln('количество положительных чисел массива=',k);
end.