1) var a:array[1..10] of real;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:= random(200) -100;
write(a[i]:5); end;
writeln;
for i:=1 to 10 do
if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i;
write(a[i]:5);
end.
2) var a:array[1..1000] of real;
s1,s2:real;
i,n:integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы массивы: ');
for i:=1 to n do
read(a[i]);
s1:=0; s2:=0;
for i:=1 to n do
if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];
writeln('Сумма элементов с четными номерами: ',s2);
writeln('Сумма элементов с нечетными номерами: ',s1);
end.
32= 100000 2cc 6 бит на символ
64= 1000000 2cc 7 бит на символ
80*6/70*7 = 48/49
Не видно, если хочешь можешь удалить мой ответ, но я лично не вижу из-за темноты=(
Точка RGB весит 3 байта.
300*200=60000 - количество точек
60000*3= 180000 байт
readln (A, B); - вводим значения А В
C:=(A+B) * (B-A); - выполняем уравнение
writeln (C) - выводим результат
В итоге получается (если введём A = 7, а B = 8)
С=(7+8)*(8-7)
C=15