For I:= 1 to 8 do
begin
If A[i]<0 then
A[i]:=A[i]*6;
End;
И потом выводишь массив на экран.
// 7
begin
var arr := ArrRandom(13);
arr := arr.OrderByDescending(x->x).ToArray;
arr.Println;
Print('Sum = ', arr.Where(x->x>10).Sum() + newline +
'Count = ',arr.Where(x->x>10).Count);
end.
// 8
begin
var arr := ArrRandom(10);
Sort(arr);
arr.Println;
Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline +
'Count = ', arr.Where(x -> x mod 5 = 0).Count);
end.
// 9
begin
var arr := ArrRandom(15);
arr := arr.OrderByDescending(x -> x).ToArray;
arr.Println;
Print('array elements squares sum is = ', arr.Sum(x -> x * x));
end.
Var a,s:integer;
begin
write('a = ');
readln(a);
s:=a div 100 + a div 10 mod 10 + a mod 10;
if s mod 2 = 0
then writeln('s = ',s,' - четна')
else writeln('s = ',s,' - нечетна')
end.
Пример:
a = 915
s = 15 - нечетна
Удаления, форматирования, ненужного копирования (засорение памяти ПК), изменение формата( в том случае если изменишь на неверный формат этот файл не будет работать), запуска неизвестных программ и открытия файлов без проверки сильным антивирусником.
1
INPUT "x1="; x1
INPUT "y1="; y1
INPUT "x2="; x2
INPUT "y2="; y2
a = (x1 * x2 + y1 * y2) / (SQR(x1 * x1 + y1 * y1) * SQR(x2 * x2 + y2 * y2))
PRINT "cosA="; a
a = 3.14 / 2 - ATN(a / SQR(1 - a * a))
a = a * 180 / 3.14
<span>PRINT "A="; a
2
INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
d = b * b - 4 * a * c
IF d < 0 THEN
PRINT "Корней нет"
ELSE
IF d = 0 THEN
PRINT "x="; -b / 2 / a
ELSE
PRINT "x1="; (-b - SQR(d)) / 2 / a
PRINT "x2="; (-b + SQR(d)) / 2 / a
END IF
<span>END IF</span></span>